среди чисел последовательности 1 ,2,3,5,8,13..(каждый следующий член последовательности равен сумме двух предыдущих ) найдите количество чисел до первого 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.