Программа

VAR X,Y:real; { Координаты точки }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите X-координату точки '); { Вывод приглашения }
  ReadLn(X); { Ввод X }
  Write('Введите Y-координату точки '); { Вывод приглашения }
  ReadLn(Y); { Ввод Y }
  X:=Abs(X); Y:=Abs(Y); { Приведение точки в первый квадрант для упрощения вычисления принадлежности }
  if ((Sqr(X)+Sqr(Y)<=1) and (Y<=X)) or ((Sqr(X)+Sqr(Y)>=1) and (Y>=X) and (Y<=-X+2))
    then WriteLn('Точка принадележит заданной фигуре')
    else WriteLn('Точка НЕ принадележит заданной фигуре')
END.