Выведите на экран в одну строку квадраты всех натуральных чисел, наименьших

program zz1;
var i,n:integer; //задаем две переменные целого типа
begin
write(Введите число n); //вводим заданное число n с клавиатуры
Read(n);
i:=1; //задаем изначальное число
while i*ilt;n do //организуем цикл пока, условие пишем такое - пока квадрат числа меньше чем n, делать
begin
write(i*i, ); // выводим на экран квадрат этого числа, последующее число будет выведено в этой же строке через пробел
i:=i+1; //берем последующее число
end;
end.