Contoh program faktorial dengan pascal

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.