program Project6;
{$APPTYPE CONSOLE}
var i,S:integer;
begin
writeln('Suma chysel');
for i:=0 to 50 do begin
if sqrt(i)=inc(i) then
S:=S+i;end;
write(S,' ');
readln;
end.