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

var n,m:integer;beginwrite('n = ');readln(n);m:=1;while m*m<=n do m:=m+1;writeln('m = ',m*m);end.Пример:n = 70m = 81