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

Var x,y:real;
begin
  readln(x,y);
  x:=abs(x);
  if (x0) and (3*y    writeln(попадает)
  else
    writeln(не попадает);
end.