program laba_11_Delphi_new;
uses
   System.SysUtils;
var
   X, Y: Double;
   IsCorrect: Boolean;
begin
   X := 0;
   Y := 0;
   repeat
      IsCorrect := True;
      try
         Writeln('Введите координату x');
         Readln(X);
      except
         Writeln('Ошибка ввода, введите ещё раз!');
         IsCorrect := False
      end
   until (IsCorrect);
   repeat
      IsCorrect := True;
      try
         Writeln('Введите координату 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;
   Readln;
end.