ЛЮДИ ДОБРЫЕ ПОМОГИТЕ!
25баллов

Выведите все точные квадраты натуральных чисел, не превосходящие данного числа N.

Входные данные
Задано единственное целое число N

Выходные данные
Необходимо вывести все точные квадраты натуральных чисел, не превосходящие данного числа N.

Примеры
входные данные
15
выходные данные
1
4
9

var n,k:integer;beginwrite('n='); readln(n);k:=1;while k*k<=n do begin writeln(k*k); k:=k+1; end;end.