Program Faktorial

Labels: kumpulan program pascal

// fandy adam e1e109053
Program Faktorial;
Var
   i,n,x : integer;
Begin
     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;
     readln;
End.