laba 1 2((((

Program Lab12;

uses
    System.SysUtils;

Var
    N, M, Placements, I: Integer;
    IsCorrect: Boolean;

Begin
    Writeln('Данная программа вычисляет число размещений из N по M.');
    Writeln('Условия ввода: N и M натуральные числа, при этом N больше M.');

    Repeat
        IsCorrect := True;

        Try
            Write('Введите N: ');
            Readln(N);
            Write('Введите M: ');
            Readln(m);
        Except
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

        If IsCorrect And ((N <= M) or (N < 0) or (M < 0)) Then
        Begin
            Writeln('Введенные данные не соответствуют условию. Повторите попытку.');
            IsCorrect := False;
        End;

    Until (IsCorrect);

    Placements := N;

    For I := (N - 1) Downto (N - M + 1) Do
    Begin
        N := N - 1;
        Placements := Placements * N;
    End;

    Writeln('Число размещений равно ', Placements);
    Readln;
End.