Проверка задачи

[Miracle01]

Помогите пожалуйста проверить задачу. Задача вложил. Вот код задачи

var
   p,n: integer;
   an1,an2,an,e: real;
begin
   write('e=');
   readln(e);
   n:=2;
   an1:=1;
   an2:=2;
   writeln(an1:4:8);
   writeln(an2:4:8);
     while abs(an1-an2)>e do
     begin
       an:=(an1+an2)/2;
       writeln(an:4:8);
       an1:=an2;
       an2:=an;
       n:=n+1;
      if n mod 20=0 then readln;
  end;
  if abs(an1-an2)<e then p:=n;
writeln('p=',p);
readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.

Спасибо!

[Sazary]

А где сама задача?
И что нужно проверить? Программа компилируется и выводит результат.

[Miracle01]

Сообщение от Sazary

А где сама задача?
И что нежно проверить? Программа компилируется и выводит результат.

Нужно проверить правильно решена задача или нет?

[Sazary]

Ну, вроде, все правильно.
Только зачем эти две строчки?

 if abs(an1-an2)<e then p:=n;
writeln('p=',p);

Достаточно:

writeln('p= ',n);

[Miracle01]

Сообщение от Sazary

Ну, вроде, все правильно.
Только зачем эти две строчки?

 if abs(an1-an2)<e then p:=n;
writeln('p=',p);

Достаточно:

writeln('p= ',n);

Спасибо большое!!!!!