Задание

Определите наименьшее значение n, при котором сумма чисел, которые будут выведены при вызове F(n), будет больше 1000000. Запишите в ответе сначала найденное значение n, а затем сумму выведенных чисел.

Паскаль

procedure F

( n: integer );

begin

writeln(n+1);

if n > 1 then begin

writeln(n+5);

F(n-1);

F(n-2);

end;

end;