ClubPoker-DNA

Membuat faktorial perkalian dengan input sebarang bilangan

uses wincrt;

var

n,x:integer;

t:longint;

begin

write('Masukkan sebarang bil: ');readln(x);

n:=1;

t:=n;

repeat

if n<>

t:=t*n;

n:=n+1;

until n>x;

write(t);

end.