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

program zz1;

var i, n:integer; / /заводим переменные

begin

write ('введите n'); / /вводим заданное число n

read (n);

i:=1; / /задаем начальное значение цикла

repeat

write (i*i,' '); / / выводим квадраты числа на экран в строчку через пробел

i:=i+1; / /увеличиваем параметр цикла

until i*i>n; / /указываем условие окончания цикла

end.