Question

В паскаль пожалуйста помогите)​

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 SeqGen(n, 1, 1, (p, q) -> p + q).Print

end.