.m .... n!
C =------------ Точки это типа пробелы (.)
.n .m!(n-m)!
n,m вводится пользователем (0<n , m<=10).
Плиз помогите как можно быстрей, задача нужна очень срочно!!!!!!
зарание спасибо

program stas2;
{$i-}
uses crt;
var
m,n:integer;
r,s,p,q:integer;
i:integer;
c:real;
ch:char;
begin
repeat
clrscr;
repeat
writeln ('vvidite n');
readln (n);
until (ioresult=0) and (0<n);
s:=1;
For i:=1 to n do
s:=s*i;
repeat
writeln ('vvidite m');
readln (m);
until (ioresult=0) and (m<=10);
i:=1;
p:=1;
for i:=1 to m do
P:=p*i;
clrscr;
q:=1;
i:=1;
for i:= 1 to n-m do
q:=q*i;
c:=s/(p*q);
writeln ('rezultat c=',c:3:5);
writeln ('Vi hotite nachat zanovo? Y/N');
repeat
ch:=readkey;
until (ch='y') or (ch='Y') or (ch='n') or (ch='N');
Until (ch='n') or (ch='N');
end.