Задача на определение принадлежности точки области - Free Pascal

Нужно составить программу,содержащую ветвления и определяющую,принадлежит ли точка с координатами (x,y) заштрихованной области.

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

var
 x, y: Real;
begin
 ReadLn(x,y);
  WriteLn((x*x+y*y<=25) and (y>0) and (x>0) or (abs(x)+abs(y)<=5) and (x<0));
end.

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

Ввод значений координат точки в переменные x и y с помощью функции ReadLn.
Вывод результата на экран с помощью функции WriteLn.
Оценка принадлежности точки к области по формуле (xx+yy<=25) and (y>0) and (x>0) or (abs(x)+abs(y)<=5) and (x<0).