Program laba1_1;
Uses
    System.SysUtils;
Var
    x, y : double;
    IsCorrect : boolean;
Begin
    Repeat
        IsCorrect := true;
        Try
            Write('Введите координату x точки M: ');
            Readln(x);
            Write('Введите координату y точки M: ');
            Readln(y);
        Except
            IsCorrect := false;
            Writeln('Введены не числовые значения! Повторите попытку');
            Writeln('');
        End;
    Until(IsCorrect);
    x := abs(x);
    if(y > 0) then
    begin
        if((x+abs(y))< 1) then
            Writeln('Точка M принадлежит замкнутому множеству D')
        else
            Writeln('Точка M не принадлежит замкнутому множеству D')
    end
    else if((x+abs(y))< 2)then
        Writeln('Точка M принадлежит замкнутому множеству D')
    else
        Writeln('Точка M не принадлежит замкнутому множеству D');
    Readln;
End.