N! /(n-m)! pascal abc.составить программку,буду .

Var
C,N,M,i:integer;
Begin
C:=1;
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
Write(N,'! / (',N,'-',M,')! = ');
For i:= 2 to (N-M) do
 C:=C*i;
For i:= 2 to N-1 do
 N:=N*i;
Write(N/C);
End.