ClubPoker-DNA

uses wincrt;

var

n:integer;

FUNCTION Faktorial(M:integer):longint;

begin

         if M=0 then

         Faktorial:=1

         else

         Faktorial:=M*Faktorial(M-1);

end;

begin

     clrscr;

     writeln('Faktorial');

     write('Berapa faktorial: ');readln(n);

     writeln(n,'! = ',Faktorial(n));

end.