Определить принадлежность точки - Pascal

Формулировка задачи:

Здравствуйте, подскажите как сделать это задание. Из всего курса информатики, эту тему понял хуже всего. И не особо пойму как это сделать. Спасибо. Составить алгоритм и программу вычислений функции F1(x, y), если точка P(x,y) с произвольными координатами принадлежит заштрихованной области D, и функции F2(x,y), если точка P(x,y) не принадлежит области D т.е. F1(x,y), если P принадлежит D z={ F2(x,y), если P принадлежит D

Решение задачи: «Определить принадлежность точки»

Листинг программы

function f(x, y: Real): Rwal;
begin
  if Abs(x)+Abs(y)<=2 then f:=Cos(Abs(x))+y
  else f:=0;
end;
var x, y: Real;
begin
  Write('x y: '); ReadLn(x,y);
  WriteLn('z=',f(x,y));
end.

Объяснение кода листинга программы

В функции f(x, y) определены два параметра типа Real - x и y.
В условии if выполняется проверка: если сумма абсолютных значений x и y меньше или равна 2, то выполняется вычисление значения f(x, y) с помощью формулы f=Cos(Abs(x))+y.
Если условие не выполняется, то значение f(x, y) устанавливается в 0.
В переменной var x и y присваиваются типы Real.
Вызывается функция ReadLn для чтения значений x и y с консоли.
Вызывается функция f(x, y) с аргументами x и y, полученными из функции ReadLn.
Выводится значение f(x, y) на экран с помощью функции WriteLn.