[ЕЖ]

Попробуй чуть попроще, вот так

i:=99;
while i>=3 do 
begin
  x:=x+sqrt(i);
  i:=i-3;
end;