Question

Дано натуральное число n . Получите наименьшее натуральное число вида m2, превосходящее n.

программа в паскле

Answer 1

Если я правильно понял суть задания

 

var n,m:inreger;

begin

readln(n);

m:=n+1;

writeln(m);

end.