Напишите программу на Паскале вывода значения true, если точка с заданными координатами (х,у) лежит внутри заштрихованной области и false, если не лежит

Varx,y:real;BeginWrite('x = ');ReadLn(x);Write('y = ');ReadLn(y);if y<=0 then   Begin   if x<0 then Write(y>=1.5*x-6)   else Write(y>=-1.5*x-6)   Endelse Write(false);End.