Выведите все точные квадраты натуральных чисел, не превосходящие данного числа 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.