Program Menghitung Faktorial Pascal

Berikut adalah program untuk menghitung nilai n faktorial. Berikut kodingnya dalam bahasa pascal

program faktorial;
uses crt;
var
n, a,i: integer;
begin
clrscr;
write('Masukan nilai n = ');
readln(n);
a:= 1;
if n=0 then
begin
a:= 1;
end
else
begin
for i:= 1 to n do
begin
a:= a*i;
end;
end;
write('nilai faktorial dari n = ',n,' adalah ',a);
readln;
end.

SO: Pascal, program faktorial, factorial, koding faktorial pascal, program pascal, faktorial.