Var
A,P:real;
n,i:integer;
Begin
WriteLn('Ââåäè ÷èñëî A');
ReadLn(A);
WriteLn('Ââåäè ÷èñëî n');
ReadLn(n);
P:=A;
For i:= 1 to n do
P:=P*(A-n*i);
WriteLn(P)
End.