Question

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

Answer 1

Var
x,y:real;
Begin
Write('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)
   End
else Write(false);
End.