ЗАДАЧА В ПАСКАЛЕ. ЗА СПАМ И Т.Д - ЖАЛОБА!

--- PascalABC.NET 3.6.2 ---

begin

 var NumSeq := SeqGen(ReadInteger(), 1, 1, (cur, prev) -> cur + prev);

 var Output := OpenWrite('output.txt');

 Write(Output, NumSeq.JoinToString(' '));

 Output.Close();

end.