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

program zz1;
var i,n:integer; // заводим переменные
begin
write(введите n); // вводим данное число n
read(n);
i:=1; // задаем изначальное значение цикла
repeat
write(i*i, ); // выводим квадраты числа на экран в строку через пробел
i:=i+1; // увеличиваем параметр цикла на единицу
until i*igt;n ; // указываем условие окончания цикла
end.