belajar pascal 4 (while)

belajar pascal 4 (while)

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;
while bilangan > 1 do
begin
faktorial := faktorial * bilangan;
dec(bilangan);
end;
writeln('faktorial dari ',bilangan,'=',faktorial);
readkey;
end.


hasil program :