Переведите с паскаля на кумир,очень надо
Var n,k:integer;
begin
write('n=');
readln(n);
k:=1;
while k*k<=n do
begin
writeln(k*k);
k:=k+1;
end;
end.

Ответ дал: Ziorar