laba 1 1)))

Program Lab11;

Uses
    System.SysUtils;

Var
    X, Y: Integer;
    IsCorrect: Boolean;

Begin
    X := 0;
    Y := 0;
    Writeln('Данная программа определяет, принадлежит ли точка замкнутому множеству D.');
    Writeln('Введите координаты точки.');

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

    If (X + Y <= 1) And (2 * X - Y <= 1) And (Y >= 0) Then
        Writeln('Точка принадлежит множеству D.')
    Else
        Writeln('Точка не принадлежит множеству D.');

    Readln;

End.