лаба1н2(изм)

Program Lab_1_2;

Uses
    Windows, System.SysUtils;

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

Begin
    A := 1;
    N := 0;
    M := 0;
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    Writeln('Данная программа вычисляет число размещений из N по M.');
    Writeln('Введите числа N, M, где N > M:');
    Repeat
        IsCorrect := True;
        Try
            Readln(N);
            Readln(M);
        Except
            IsCorrect := False;
            Writeln('Введите верные данные, где N > M:');
        End;
        If IsCorrect And (N < M + 1) Then
        Begin
            IsCorrect := False;
            Writeln('Введите верные данные, где N > M:');
        End;
    Until IsCorrect;

    M := M - 1;
    For I := 0 To M Do
        A := A * (N - I);
    Writeln('Число размещений из N по M:', A);
    Readln;

End.