1 Ввести число N.
2 Присвоить x единицу.

1 Возвести x в квадрат и присвоить полученное значение переменной y.
2 Если y < n, вывести значение y на экран.
3 Увеличить значение x на единицу.
Пока y не станет больше n

var
x,y,N:integer;
begin
write('Enter N: ');
readln(N);
x:=1;

repeat
;
if y ;
x:=x+1;
until y>N;

readln
end.

DogyStyleee    3   26.04.2020 16:07    1