var 
i:integer;
p,k:real;
begin
i:=1;
k:=0;
p:=1;
while (p<=200) do begin
p:=p+power(i,2);
i:=i+1;
k:=k+1;
end;
writeln ('Kol-vo slagaemix ravno ',k);
end.