лаба1н1

Program Lab_1_1;
Uses
    Windows, System.SysUtils;
Var
    X, Y: Real;
    IsCorrect: Boolean;
Begin
    SetConsoleCP(1251);
    SetConsoleOutputCP(1251);
    Writeln('Данная программа определяет, принадлежит ли данная точка замкнутому  множеству D, заданному системой ограничений.');
    Writeln('Введите координаты X, Y:');
    Repeat
        IsCorrect := True;
        Try
            Readln(X);
            Readln(Y);
        Except
            Writeln('Неверные данные. Введите координаты точки:');
        End;
    Until IsCorrect;
    If (Not(X + Y) < 1) And (Not(2 * X – Y) < 1) And (Not(Y > 0)) Then
        Writeln('Да, принадлежит.')
    Else
        Writeln('Нет, не принадлежит.');
    Readln;
End.