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;
end.