Belajar Pascal - Menghitung Faktorial

Kode program sederhana untuk menghitung faktorial dengan Pascal

Program Faktorial;
Uses crt;
Var i,n,x:integer;

Begin
clrscr;
Writeln('Program Faktorial');
Writeln('=================');
Writeln;
Write('Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
if (n<=0) then
Writeln('Hasil Faktorial: ',1)
else
Begin x:=1;
For i := 1 to n do
x:=x*i;
Writeln('Hasil Faktorial: ',x);
readln;
End;
End.

Dan tampilan Output program diatas adalah :