program faktorial_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.