Prinzessin from Pati

Program Permutasi;
{Nama File : Responsi Nomor 1
Tanggal : 8 Juni 2010
PERMUTASI}

uses wincrt;
var n,r:integer;

Function Operasi(nilai:integer):real;
begin
if nilai=0 then
Operasi:=1
else
Operasi:=nilai*Operasi(nilai-1)
end;

begin
write(' PERMUTASI');
writeln;
writeln;
write('Masukkan n : ');readln(n);
writeln;
write('Masukkan r : ');readln(r);
writeln;
writeln('P(',n,',',r,') : ',Operasi(n)/Operasi(n-r):6:0);
end.