Какую задачу решает следующая программа?

[email protected] в категроии Информатика, вопрос открыт 24.05.2018 в 04:53

Var x,y,N:integer;
begin
write(‘Enter N: ’);
readln(N);
x:=1; while y begin
y:=x*x;
if y x:=x+1;
end;
writeln;
end.