[新手求教]有道循环语句的题

var k,s:longint;
begin
k:=1; s:=1;
while s<=2500 do
begin
k:=k+1;
s:=s+k*k
end;
writeln(k)
end.
未测试

刚好有一万金币，表骗我麻花真有那么好心吗