дано: E(эпсилон)=115В, r=29,7 Ом. формула P=R*SQR(E/R+r) при R=10,20,30,40,50,100,150,200,250,300


надо с while и repeat, в этом и возникли затруднения

вот мои наработки:
const
E=115;
r=29.7;
var
RR,i:integer;
P:real;
begin
for i:=1 to 10 do
begin
if i<6 then RR:=i*10 else RR:=(i-5)*50+50;
P:=RR*SQR(E/RR+r);
write(P:10:2);
end;
readln;
end.
но поскольку это цикл с пост и предусловием, надо ведь while и repeat, вот я и не знаю куда их поставить и как записать

вот мои наработки:
const
E=115;
r=29.7;
var
RR,i:integer;
P:real;
begin
for i:=1 to 10 do
begin
if i<6 then RR:=i*10 else RR:=(i-5)*50+50;
P:=RR*SQR(E/RR+r);
write(P:10:2);
end;
readln;
end.
но поскольку это цикл с пост и предусловием, надо ведь while и repeat, вот я и не знаю куда их поставить и как записать