Var
x, y: real;
begin
Write('Введите через пробел координаты точки (x,y): ');
Readln(x, y);
Write((y >= 0) and (y <= 4 - abs(x)))<br>end.
Тестовое решение:
Введите через пробел координаты точки (x,y): 1 3.1
False
Введите через пробел координаты точки (x,y): -1 2.9
True