Помогите решить задачу в паскале по информатике
Номер 5.18
Вводятся координаты точки А(x;y)
Надо узнать попадает ли она в заштрихованную область на рисунку

Как то так:

uses crt;

var x,y:real;

begin

clrscr;

writeln('Введите координаты точки');

readln(x,y);

if (abs(y)<=1.5) and (abs(x)<=2) and (abs(x)<=abs(y)) then writeln('Да')

else writeln('Нет');

readkey;

end.