program task_2;
uses
   System.SysUtils;
var
   I, N, M, Numb: Integer;
   IsCorrect: Boolean;
begin
   N := 0;
   M := 0;
   repeat
      try
         Writeln('Введите N ');
         Readln(N);
         IsCorrect := True;
      except
         Writeln('Неправильно. Введите ещё раз!');
         IsCorrect := False
      end;
   until (IsCorrect);
   repeat
      try
         Writeln('Введите M ');
         Readln(M);
         IsCorrect := True;
         if M > N then
            begin
               Writeln('Неправильно. Введите ещё раз!');
               IsCorrect := False;
            end;
      except
         Writeln('Неправильно. Введите ещё раз!');
         isCorrect := False
      end;
   until (IsCorrect);
   Numb := N;
   M := M - 1;
   for I:=1 to M do
      Numb := Numb * (N - I);
   Writeln('Число размещений = ', Numb);
   Readln;
   Readln;
end.