Belajar pascal 3 (for 2)

belajar pascal 3
for

contoh program

program faktorial1;
uses crt;
var bilangan , pencacah : byte;
faktorial : longint;
begin
clrscr;
writeln('menghitung nilai faktorial sebuah bilangan');
writeln('==========================================');
write('masukkan bilangan yang dihitung: '); readln(bilangan);

faktorial := 1;
for pencacah := bilangan downto 1 do
faktorial := faktorial * pencacah;
writeln('faktorial dari ',bilangan,'=',faktorial);
readkey;
end.

hasil program