Question

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

Answer 1

Var
  x, y: real;

begin
  Write('Введите через пробел координаты точки (x,y): ');
  Readln(x, y);
  Write((y >= 0) and (y <= 4 - abs(x)))
end.

Тестовое решение:

Введите через пробел координаты точки (x,y): 1 3.1
False

Введите через пробел координаты точки (x,y): -1 2.9
True