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

program numb;var n1,n2,n3,k:integer;beginn1:= 1;n2:= 2;k:= 2;repeatn3:= n1 + n2;n1:= n2; n2:= n3;k:= k + 1until n3 > 999999;writeln(\'Количество чисел до первого шестизначного: \', k - 1);writeln(\'Последнее число перед первым шестизначным: \', n1)end.