Алгоритм вычисления суммы значений

При вычислении суммы значений пользуются оператором типа:

s:=s + значение;

причем первоначально "s" должно быть равно 0.

Пример: вычислить сумму значений функции в точках 1,3,5,...,33

1 способ (repeat) program prim;

var s,x,y:real;

begin

s:=0; x:=1;

repeat

y:=sqrt(x);

s:=s+y;

x:=x+2;

until x>33;

writeln('сумма=', s);

end.

2 способ (while) program prim;

var s,x,y:real;

begin

s:=0; x:=1;

while x<=33 do begin

y:=sqrt(x);

s:=s+y;

x:=x+2;

end;

writeln('сумма=', s);

end.