program laba_1_1 ;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   x,y:Double;
   IsCorrect:Boolean;

begin
   Writeln('Введите значения x в диапозоне от 0 до 2 , у в диапазоне от 0 до 1 ');
   IsCorrect:= False;
   repeat
     Writeln('Введите x');
     try
        Readln(x);
        IsCorrect:=True;
     except
        On E: EInOutError do
        Writeln('Пожалуйства, введите другое число');
     end;
   until IsCorrect and (x>0);
    IsCorrect:= False;
   repeat
     Writeln('Введите y');
     try
        Readln(y);
        IsCorrect:=True;
     except
        On E: EInOutError do
        Writeln('Пожалуйства, введите другое число');
     end;
   until IsCorrect and (y>0);
   if(x>0) and (x<2) and (y<(-1/2)*x+1) and (y>0) then
       Writeln('Данная точка принадлежит множеству')
   else
       Writeln('Данная точка не принадлежит множеству');
   Readln;
end.