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

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;<br>writeln('m = ',m*m);
end.

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