program while29;
uses crt;
var
a1,a2,ak,e:real;
k:integer;
begin
clrscr;
write('Введите число e>0 e=');
readln(e);
a1:=1;
a2:=2;
ak:=(a1+2*a2)/3;
k:=3;
while abs(ak-a2) >= e do
begin
a1:=a2;
a2:=ak;
ak:=(a1+2*a2)/3;
k:=k+1;
end;
write('Результат=',k,' A(k-1)=',a2:0:5,' Ak=',ak:0:5);
readln;