Написать программу,при выполнении которой с клавиатуры считываются координаты точки на плоскости (x,y- действительные числа) и определяется принадлежность этой точки заданной закрашенной области(включая границы)

наверное, третье условие не х >= 0, а y >= 0 ? (предполагаю)

Если предполагается, что прямая, проходящая через точку Х = 1.5 параллельна оси Y, тогда может получиться такой код:var  x, y: real;begin  write('Введите координаты точки x,y ');  readln(x, y);  if (y <= sqr(x)) and (x <= 1.5) and (x >= 0) then     writeln('Точка принадлежит фигуре')  else    writeln('Точка не принадлежит фигуре'); end.Тест №1Введите координаты точки x,y 1 1Точка принадлежит фигуреТест №2Введите координаты точки x,y -1 2Точка не принадлежит фигуреТест №3Введите координаты точки x,y 0 0Точка принадлежит фигуре