PROGRAM KOMBINASI MENGGUNAKAN SUBPROGRAM (DELPHI)

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f:integer;
    g:real;
  procedure faktorisasi (x:integer; var y:integer);
  var i:integer;
  begin
    y:=1;
    for i:=1 to x do
    y:=y*i;
  end;
begin
  a:=strtoint(Edit1.Text);
  b:=strtoint(Edit2.Text);
  c:=a-b;
  faktorisasi(a,d);
  faktorisasi(b,e);
  faktorisasi(c,f);
  g:=d/(e*f);
  Edit3.Text:=floattostr(g);
end;