Среди чисел последовательности 1 ,2,3,5,8, следующий член последовательности равен сумме двух предыдущих ) найдите количество чисел до первого 6-значного pascal abc

Var
    f, f1, f2: longint;
    n: integer;

begin
    f2 := 1;
    f1 := 2;
    n := 2;
   
    repeat
        f := f1 + f2;
        n := n + 1;
        writeln(n,' - ',f);
        f2 := f1;
        f1 := f;
    until f >= 1000000;
   
    writeln(n - 1);
end.