program MinSquareNumber;
var
n, m: integer;
begin
writeln('Enter a natural number:');
readln(n);

m := trunc(sqrt(n)) + 1;

writeln('The smallest natural number of the form m^2 exceeding ', n, ' is: ', m * m);
end.