Дана программа , нужно написать код на паскале 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<br> writeln('попадает') else writeln('не попадает'); end.