SCJ2 No 6

program soal6;
uses crt;
var angka,hasil,angkaturun:integer;
begin
        clrscr;
        write('Masukkan angka:');
        read(angka);
        hasil:=angka;
        angkaturun:=angka;
        repeat
                angkaturun:=angkaturun-1;
                hasil:=hasil*angkaturun;
        until
                angkaturun=1;
        writeln(angka,' faktorial = ',hasil);
readkey;
end.