среди чисел последовательности 1,2,3,5,8,13...(каждый следующий член последовательности равен сумме двух предыдущих),найдите количество чисел до первого шестизначного. Помогите плиз,Паскаль авс

Ответ - 29

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.