Program Faktorial

Program Faktorial;
Uses Wincrt;
Var i,n,x:integer;
Begin
  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);
     End;
End.