[Yurij]

Народ! Хелп.
Задача лёгкая, но почему то не пашет.
Условие:
x=сумме корней каждого члена от 99 до 3, причём числа уменьшаются на 3... т.е. sqrt(99)+sqrt(96)+...+sqrt(3)=x
Моя программа почему то не суммирует каждый член, а выводит последний... x всегда остаётся 0...
Помогите.

program if_1;
var
i:integer;
x,c:real;
BEGIN
x:=0;
for i:=99 downto 4 do
{либо ...x:=sqrt(i)+x;i:=i-2...}
begin
c:=i;
x:=sqrt(c)+x;
i:=i-2;
end;
writeln(x);
end.