uses crt;
var z: char;
    n:integer;

{vypocet Fibonacciho cisla}
function fibo(n:integer):integer;
begin
     if n=0 then
        fibo:=0
     else
         if n=1 then
            fibo:=1
         else
             fibo:=fibo(n-1)+fibo(n-2);
end;

begin
repeat
clrscr;
writeln('Trtkal 2008 - http://fei.trtkal.net');
writeln('-----------------------------------');
begin
     write('Zadej faktorial: '); readln(n);
     writeln('Vysledek je: ',fibo(n));


end;
writeln('-----------------------------------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.