Вот такая задача:
Вычислить число размещений из n по m по формуле: A(n,m)= m(m-1)(m-2),…,(m-(n-1)), где m>-n.
Ребята помогите пожалуйста.
Function Accomodations(N,K:Longint):Longint;
var i,Result:longint;
begin
Result:=1;
For i:=n downto (n-k+1) do result:=result*i;
Accomodations:=result
end;