Как то так:
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.
