С клавиатуры вводится число. Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Вычисление ряда организовать в функцию. Например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел ряда Фибоначчи: 1 2 3 5 8 13.Программа должна быть написана на Pascal.

Предыдущий
вопрос Следующий
вопрос

program FibonacciSeries;
function Fibonacci(n: integer): integer;
begin
if (n = 1) or (n = 2) then
Fibonacci := 1
else
Fibonacci := Fibonacci(n-1) + Fibonacci(n-2);
end;
var
userInput, i, fibNum: integer;
begin
write('Введите количество чисел ряда Фибоначчи: ');
readln(userInput);
for i := 1 to userInput do
begin
fibNum := Fibonacci(i);
write(fibNum, ' ');
end;
end.

Пример работы программы:

Введите количество чисел ряда Фибоначчи: 6
1 1 2 3 5 8