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

{vypocet faktorialu pomoci rekurze}
function faktorial(n:integer):integer;
begin
     if n=1 then
        faktorial:=1
     else
         faktorial:=n*faktorial(n-1);
end;

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


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