Решить в паскале по информатике
номер 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.