Pemrograman Pascal Menampilkan Nilai Faktorial menggunakan ( For to do)

Pemrograman Pascal Menampilkan Nilai Faktorial menggunakan ( For to do)

Buatlah program dengan menggunakan bahasa pemrograman pascal untuk menginput 1 buah bilangan bulat positif dan menampilkan nilai faktorial dari bilangan tersebut! 

Contoh output program:

Input Sebuah angka : 3 <Inputan>

==================================== 

 3 Faktorial = 6 

Rumus faktorial adalah perkalian dari 1 hingga angka tersebut, contoh 1 x 2 x 3 = 6

Contoh Program : 

Program soaluas2;

uses crt;

var

        a,b,c: integer;

begin

        clrscr;

        write('Input sebuah angka : ');

        readln(a);

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

                c:= 1;

                for b:= 1 to a do

                begin

                        c:= c*b;

                end;

                writeln(a,' Faktorial = ',c);

        readln;

end.

Hasil Output Program :