Program kombinasi dan permutasi

uses wincrt;
var
 a,b,a_k,kombinasi,permutasi:real;
 i,n,k:integer;
 begin
 writeln('menghitung kombinasi dan permutasi');
 write('masukkan bilangan n=');readln(n);
 write('masukkan bilangan k='); readln(k);
 a:=1;
 b:=1;
 a_k:=1;
 for i:=2 to n do
 a:=a*i;
 for i:=2 to k do
 b:=b*i;
 for i:= 2 to (n-k)do
 a_k:=a_k*i;
 kombinasi:=a/(b*a_k);
 permutasi:=a/(a_k);
 writeln('nilai ',n,'kombinasi',k,'=',kombinasi:0:0);
 writeln('nilai',n,'permutasi',k,'=',permutasi:0:0);
 end.