Напишите функцию которая вычисляет N-е число фибоначчи

program zz1;

var n, i:integer; / / задаем переменные целого типа

function fib (i:integer) : integer;

var a, b, c, s:integer;

begin

a:=1; b:=1; c:=a+b; / / получаем первые числа Фибоначчи

s:=2;

s:=s+1; / / получаем начальную сумму

while s < n do / / организуем цикл, пока число Фибоначчи меньше чем заданное число N

begin

s:=s+1; / / получаем сумму, добавив к ней очередное число Фибоначчи

a:=b;

b:=c;

c:=a+b; / / получаем следующее число Фибоначчи

end;

fib:=c;

end;

begin

write (' введите натуральное число n '); / / вводим с клавиатуры число

read (n);

if (n = 1) or (n = 2) then write (n, '-ое число Фибоначчи = ', 1)

else

write (n, '-ое число Фибоначчи = ', fib (n)); / / выводим ответ

end.