1. Составляем уравнение "нижней" прямой, проходящей через точки с координатами (0;4) и (2;0):

2. Составляем уравнение "верхней" прямой, проходящей через точки с координатами (0;6) и (6;0):

3. Составляем функцию F(x), которая определяет условие попадание точки с координатами (x;y) в заштрихованную область. Для этого дополнительно понадобится определить принадлежность точки первой четверти системы координат: значения x и y не должны быть отрицательными.

4. Записываем программу на языке Pascal.

var
  x,y:real;
begin
  Write('Введите координаты х, y: ');
  Readln(x,y);
  if (x>0) and (y>0) and (y>=2*x-4) and (y<=6-x) then Writeln('Принадлежит')
  else Writeln('Не принадлежит')
end.

Тестовое решение:
Введите координаты х, y: 3.1 2.9
Принадлежит

Замечание.
Если кому-то нужно, чтобы программа содержала заумные и корявые ветвления, то вместо одного оператора if-then-else можно было бы нагромоздить следующее:

if (x>0) then
    if (y>0)
      then if (y>=2*x-4)
          then if (y<=6-x) then Writeln('Принадлежит')
  else Writeln('Не принадлежит')