Вот сам код:
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;
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники
Продвижение своими сайтами как стратегия роста и независимости