Дана программа , нужно написать код на паскале abc определить, попадает ли точка с координатами (x, y) в заштрихованную область. (заштрихованая область треугольник с координатами а(-3,0), в(3,0), с(0,2))

Var x,y:real;
begin
  readln(x,y);
  x:=abs(x);
  if (x<3) and (y>0) and (3*y<6-2*x) then
    writeln('попадает')
  else
    writeln('не попадает');
end.