Отыскать наименьший номер последовательности, заданной рекуррентной формулой, для которого производится условие

var a1,a,e:real;
nbsp;nbsp;nbsp;nbsp;n:integer;
begin
repeat
write(Введите малую величину 0lt;elt;1 e=);
readln(e);
until(egt;0)and(elt;1);
a1:=2;
a:=(2+a1*a1)/(2*a1);
writeln(n=1 a=,a1:0:5);
writeln(n=2 a=,a:0:5);
n:=2;
while абс(a1-a)gt;=e do
nbsp;begin
nbsp;nbsp;a1:=a;
nbsp;nbsp;n:=n+1;
nbsp;nbsp;a:=(2+a1*a1)/(2*a1);
nbsp;nbsp;writeln(n=,n, a=,a:0:5);
nbsp;end;
write(n=,n);
end.