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

{vypocet Fibonacciho cisla}
function fibo(n:integer):integer;
begin
     if n<2 then
        fibo:=n
     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.