Program Menghitung_Faktorial; ( Algoritma dan Pemograman )

Program Menghitung_Faktorial;
var
   N    : integer;
   Fak  : real;
procedure Isi_N (var N : integer);
begin
     write (' Masukan Harga N : ' );readln (N) ;
     {validasi harga N}
     while (N < 0) do
     begin
          writeln(' Harga N Tidak Boleh Niegatif, Ulangi! ');
          write (' Masukan Harga N : ' );readln (N) ;
     end;
end;
Procedure Faktorial(N : integer;var Fak :real);
var
   i : integer;
begin
     If (N = 0) or (n = 1)
     then
         Fak := 1
     else
     begin
          Fak   := 1;
          for i := 2 to N do
              Fak := Fak * i;
     end;
end;

Procedure Tampil_Faktorial (N:integer;Faktorial:real);
begin
     write(' Faktorial ',N,' Adalah ',Faktorial:0:0);
end;

{program utama}
begin
  Isi_N(N);
  Faktorial (N, Fak);
  Tampil_Faktorial (N, Fak);
  readln;
end.