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

uses crt; var x, y:real; begin clrscr; writeln ('Введите координаты точки D'); readln (x, y); if (abs (x) = 5) and (y<=15) then write ('Точка D попадает в заштрихованную область') else write ('Точка D не попадает в заштрихованную область'); readln end.