Contoh Program Faktorial dengan Rekursif

Assalammualaikum wr, wb

hai, salam terhangat untuk warga ilkom yang ada diseluruh Indonesia :)
Aku mau sharing nih tentang program faktorial dengan rekursif sebagai berikut :
Algoritma nya yaitu

Program Faktorial;
uses crt;
function Faktorial(a:integer):longint;
begin
      if (A=1) then
           Faktorial:=1
      else
          Faktorial:=a*faktorial(a-1);
end;

var
         x:integer;
begin
clrscr;
write('Berapa Faktorial : ');readln(x);
writeln(x,'! = ',faktorial(x));
readln;
writeln('purnamatgspraktikum.blogspot.com');
readln;
end.

Nah itu baru algoritma nya , sekarang aku juga kasih Ouput Program nya :

1. Tampilan Program saat dijalankan.

2. Tampilan ketika menginputkan nilai faktorial.
 
3. Tampilan hasil dari nilai faktorial setelah diinputkan.


Wassalam , Terimakasih . Semoga bermanfaat :)