лаба1н2

Program Lab_1_2;

Uses
    Windows, System.SysUtils;

Var
    A, N, M, Result1, Result2, Difference, Num: Integer;
    IsCorrect: Boolean;

Begin
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    Writeln('Данная программа вычисляет число размещений из N по M.');
    Writeln('Введите числа N, M, где N > M:');
    Repeat
        IsCorrect := False;
        Try
            Readln(N);
            Readln(M);
            If (N > M) Then
                IsCorrect := True
            Else
                Writeln('Введите верные данные, где N > M:');
        Except
            Writeln('Введите верные данные, где N > M:');
        End;
    Until IsCorrect;
    Result1 := 1;
    For Num := 1 To N Do
        Result1 := Result1 * Num;
    Difference := N - M;
    Result2 := 1;
    For Num := 1 To Difference Do
        Result2 := Result2 * Num;
    A := Result1 Div Result2;
    Writeln('Число размещений из N по M:', A);
    Readln;

End.