[Stasik]

program xxx;
uses
  WinCrt;
var
i:integer;
x:real;
begin
 x:=0;
 i:=99;
 while i>2 do
 begin
  x:=x+sqrt(i);
  i:=i-3;
 end;
 writeln(x);
end.

c for было лень думать..... выдаёт 2.2352466667E+02 т.е. 223.52 с копейками