Последовательность Фибоначчи начинается с 0, если опечатки нет, то вот:
begin
ArrGen(ReadInteger('n=') + 1, 1, 1, (i, j)-> i + j).Last.Println;
end.
Пример вывода и ответ для числа 40 в приложении.
Последовательность Фибоначчи начинается с 0, если опечатки нет, то вот:
PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018
begin
ArrGen(ReadInteger('n=') + 1, 1, 1, (i, j)-> i + j).Last.Println;
end.
Пример вывода и ответ для числа 40 в приложении.