Program Faktorial

Program Faktorial_pascal;
 
uses crt;
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.