Список квадратов

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

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

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

Исходный код на языке Pascal
var
  i, n: integer;

begin
  read(n);
  for i := 1 to n do
    if sqr(i) <= n then
      writeln(sqr(i));
end.