Program Faktorial

Program ini untuk menghitung faktorial dari bilangan yang dimasukkan. Selamat mencoba!

program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
write('masukkan bilangan yang ingin difaktorialkan = ');

readln(n);
f:=1;
while i<n do
begin i:=i+1;
f:=f*i;
end;
write(n,'! = ',f);
end.

Output yang dihasilkan adalah sebagai berikut.