\(P=I^2.R=\left(\dfrac{E}{R+r}\right)^2.R=\dfrac{E^2}{R+2+\dfrac{r^2}{R}}\)
\(P_{max}\Leftrightarrow R+2+\dfrac{r^2}{R}\left(min\right)\Rightarrow R+2+\dfrac{r^2}{R}\ge2\sqrt{R.\dfrac{r^2}{R}}+2\)
\("="\Leftrightarrow R=r=1,3\left(\Omega\right)\Rightarrow P=\dfrac{13^2}{\left(1,3.2\right)^2}.1,3=...\left(W\right)\)