<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
Подходит 1, получается Лиходеев не виноват, преступление совершили Кургин и Брагин
2) B)
3) A)
4) B)
5) >^>>^<^<
6) A)
7) C)
<span><span>начало S_{1}=10000; k=1,05; S_{2}=S_{1}; t=0,
если не S_{2} >= 2*S_{1},
тогда t++; S_{2} = k*S_{2};
вернуться к условию,
иначе
вывод t конец </span></span>