Точка принадлежит заштрихованной области или нет — Pascal(Паскаль)

program b3;

var x,y:real;
begin write('введите x=');
      readln(x);
      write('введите y=');
      readln(y);
      if ((y<5)and(y>=2)and(x>-1)and(x<6))or
         ((y<2)and(y>=-2)and(x>-1)and(x<2))or
         ((y>5)and(y<-2)and(x>-5)and(x<2))
         then writeln('Точка принадлежит заштрихованной области')
         else writeln('Точка не принадлежит заштрихованной области')
end.