Pascal. Задача 7-5

function fib(n : integer) : integer;
begin
  if (n = 1) or (n = 2) then
    result := 1
  else
  begin
    result := fib(n - 1) + fib(n - 2);
  end;
end;

var
  n : integer;
begin
  Write('Введите порядковый номер числа Фибоначчи: ');
  Readln(n);
  writeln(n, '-ое число Фибоначчи; ', fib(n));
end.