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

program numb;

var n1, n2, n3, k:integer;

begin

n1: = 1;

n2: = 2;

k: = 2;

repeat

n3: = n1 + n2;

n1: = n2; n2: = n3;

k: = k + 1

until n3 > 999999;

writeln ('Количество чисел до первого шестизначного: ', k - 1);

writeln ('Последнее число перед первым шестизначным: ', n1)

end.