Составить программу, определяющую принадлежность точки с координатами x, y заштрихованной области:

VAR
X,Y:REAL;
    BEGIN
         READLN(X,Y);
              IF (Y<=-X+6)AND(Y>=-2*X+4)AND(Y>=0)AND(X>=0)THEN
                    WRITELN('ПРИНАДЛЕЖИТ')
              ELSE
                     WRITELN('НЕ ПРИНАДЛЕЖИТ')
END.