Нужна ! числа фибоначчи определяются формулами: f0=1 f1=1 f2=2 fn=f(n-1) + f(n-2) найти f40

Последовательность Фибоначчи начинается с 0, если опечатки нет, то вот:

begin

 ArrGen(ReadInteger('n=') + 1, 1, 1, (i, j)-> i + j).Last.Println;

end.

Пример вывода и ответ для числа 40 в приложении.