дана программа , нужно написать код на паскале 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.