Среди чисел 1, 4, 9, 16, 25, … найти первое число, большее n (программа Паскаль)

program z1;
uses crt;
var i, n: integer;
begin
read (n);
i:=1;
while sqr(i)<n do
i:=i+1;
 writeln (sqr(i));
end.