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

varn, p, i: integer;beginreadln(n);i:=1;p:=3;while true do if i<=n then begin i:=i+p; p:=p+2; end else begin write(i); exit; end;end.