Люди добрые ! выведите все точные квадраты натуральных чисел, не превосходящие данного числа n. входные данные задано единственное целое число n выходные данные необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа n. примеры входные данные 15 выходные данные 1 4 9
begin
write('n='); readln(n);
k:=1;
while k*k<=n do
begin
writeln(k*k);
k:=k+1;
end;
end.