// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program cyberforum707298;
var
N :integer; // Данное число
otvet :integer; // ответ
i:integer; // счетчик в цикле
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While i*i <= N </span>do inc(i);//
otvet:=i*i;
// вывод ответа
Writeln('Ответ = ',otvet)
end.