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

program zz1;

var a, b, n:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры заданное число

read (n);

a:=1; / / задаем начальное число заданного ряда чисел

b:=3; / / задаем на сколько будет изменяться следующее число в ряду

while a < n do / / организуем цикл по условию

begin

a:=a + b; / / получаем следующее число ряда

b:=b + 2; / / изменяем число, на сколько будет изменятся число в ряду

end;

write (' первое число большее заданного = ', a); / / выводим ответ

end.