Вот сам код:
write('Enter N: ');
readln(N);
x:=
while y<N do begin`введите сюда код`
y:=x*x;
if y<n then
write(y,' ');
x:=x+1;
end;
writeln;
Сборка персонального компьютера от Artline: умный выбор для современных пользователей