Program Faktorial

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

Begin
write(' Program Faktorial '); writeln;
write(' ================= ');
writeln;
writeln;
gotoxy(7,2);
writeln;
writeln;
Write(' Masukkan Nilai Faktorial: ');Readln(n);
Writeln;
writeln;
if (n<=0) then
Writeln(' Hasil Faktorial: ',1)
else
Begin
x:=1;
For i := n downto 1 do
x:=x*i;
Writeln(' Hasil Faktorial: ',x);
writeln;
End;

End.