Uses
Crt;

Var
m,n,k: Integer;

Function komb(a,b: Integer): LongInt;
var
  p: LongInt;
  i: Byte;
begin
  if b = 1
  then p:=1
  else if b < 1
       then p:=0
       else begin
         p:=0;
         for i:=0 to a
         do p:=p+komb(a-i,b-1)
        end;
  komb:=p
end; {komb}

{****************************************************************************}

Begin
ClrScr;

Write('Enter m,n,k: ');
ReadLn(m,n,k);
WriteLn;

Write('Takih kombinaciy: ', komb(m,n-k));
ReadLn
End.