Program Faktorial Pada Pascal

{Program Faktorial}

Uses Crt;

Var

a,z,c : integer;

b : longint;

begin

        writeln('Masukkan Nilai Awal : ');

        readln (c);

        writeln('Masukkkan Nilai Akhir : ');

        readln(z);

                writeln('=============');

                writeln(' n         N!');

                writeln('=============');

                b :=1;

                for a := c to z do

                  begin

                  write(a:3,'');

                  b:=b*a;

                  write(b:10);

                  writeln;

                  end;

readln;

clrscr;

end.

berikut ini adalah contoh output dari listing program diatas :