Контрольная работа в паскале

[Anka]

Дали контрольную застопорилась на паре заданий и дотянула до последнего. Помогите пожалуйта. Задания в прикреплении.

[Stilet]

1.

var i,e:integer;s:string;
begin
 readln(i);
 str(i,s);
 write('кол-во цифр=',length(s));
end.

[Consol]

2

i:=1;
writeln('2');
b:=2;
while abs(a-b)<e do
 begin
    i:=i+1;
    a:=b;
    b:=2+1/a;   
    writeln(b);
 end;
writeln(i);

[Anka]

Пасиб за два.
Нашла еще одно