PROGRAM FAKTORIAL

program faktor_pascal;
uses wincrt;
function faktorial (a:integer):longint;
begin
     if(A=1)then
                faktorial:=1
     else
         faktorial:=a*faktorial(a-1);
     end;
var x:integer;
begin
     clrscr;
     writeln('faktorial sequence');
     writeln;
     write('berapa faktorial : ');readln(x);
     writeln(x,'faktorial ','+',faktorial(x));
     writeln;
     write('tekan sembarang tombol untuk keluar...');
     readln;
end.