Repeat

[goodspeed!]

(Решить с циклом repeat) Знак суммы сверху n снизу i=1 знак дроби в чилителе 2i^2 в знаменателе 2+i

Простое решение получилось

program summa;
Var i,n :integer;
s:real;
begin
s:=0;
writeln('ведите число n');
readln (n);
for i:=1 to n do
begin
s:=s+((2*sqr(i))/(2+i));
end;
write ('сумма = ', s)
end.

а с repeat как то вообще нет...

Подскажите как .... Зарание спасибо...

[Zer0]

program summa;
 Var i,n :integer;
 s:real;
 begin
 s:=0;
 writeln('ведите число n');
 readln (n);
 i:=1
 repeat
 s:=s+((2*sqr(i))/(2+i));
 i:=i+1;
 until i>n;
 write ('сумма = ', s)
 end.

как видите, все просто (вопрос только в целесообразности использования repeat для такой задачи)