помогите решить пожалуйста: [Pascal ABC] Даны положительные действительные числа, последовательность, где каждый следующий член равен сумме двух предыдущих, найти yn>E

[Родион123321]

Даны положительные действительные числа А, X, Е. В последовательности y1, у2, .... образованной по закону y1=A, у2=Х,
уi=уi-2 + уi-1, i=1, 2, 3, .... найти первый элемент уn, для которого выполнено неравенство уn>Е.

[Аватар]

Кросспост

http://www.programmersforum.ru/showthread.php?t=302131

[Serge_Bliznykov]

var 
    A,X,E, yn, yprevprev, yprev, tmp : real;
    n : integer;
begin
   repeat
      Write('Введите положительные действительные числа A,X,E:');
      ReadLn(A,X,E);
   until (A>0) and (X>0) and (E>0);
   if A>E then WriteLn('n=1  yn = ',A)
   else 
       if X>E then WriteLn('n=2 yn = ',X)
       else begin
          n:=2; 
          yprevprev:=A;
          yprev:=X;
          repeat
             tmp := yn;
             yn := yprevprev + yprev;
             yprevprev := yprev;
             yprev := tmp;
             inc(n);
          until yn>E; 
          WriteLn('n=',n, ' yn = ',yn)
       end;
   end;
end.