Question

среди чисел 1, 4, 9, 25...найти первое число, большее n

Answer 1

var n,m:integer;
begin
write('n = ');
readln(n);
m:=1;
while m*m<=n do m:=m+1;
writeln('m = ',m*m);
end.

Пример:
n = 70
m = 81