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

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

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

var n,i,j: integer;begin  write('n = ');  readln(n);  j:=Trunc(sqrt(n));  for i:=1 to j do write(i*i,' ');end.n = 1001 4 9 16 25 36 49 64 81 100