program Fibonacci;

uses crt;

var cislo : integer;

function Fib(n : longint) : longint;
begin
  if n < 2 then
    Fib := n
  else
    Fib := Fib(n - 1) + Fib(n - 2);
end;

begin
  clrscr;
  writeln('Tento program vypocitava Fibonacciho posloupnost podle znameho vzorce :');
  writeln(' Fib(1) = 1,');
  writeln(' Fib(2) = 1,');
  writeln(' Fib(n) = Fib(n - 1) + Fib(n - 2).');
  writeln;
  writeln('Poslounost : ');
  for cislo := 1 to 32 do
    write(Fib(cislo):10);
  writeln;
  writeln('Stiskni ENTER ...');
  readln;
end.