Найти значение выражения - Pascal (80536)

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

В общем, ребята, никак не могу решить задачу. Голову ломал недели две, но так и не пришел к омута правильному. Помогите, кто может, пожалуйста. Вычислить D - заштрихованная область:

Решение задачи: «Найти значение выражения»

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

var x,y,u:real;
 begin
 writeln('Введите координаты точки');
 readln(x,y);
 if(x*x+y*y<=1)and(abs(y)>=0.5)
 then u:=sqrt((abs(x)+sqrt(x*x+y*y))/2)
 else u:=sqrt((abs(y)+sqrt(x*x+y*y))/2);
 write('u=',u:0:2)
 end.

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

Объявляются переменные:
- x типа real (действительное число)
- y типа real
- u типа real
Выводится текст Введите координаты точки с помощью функции writeln.
Считываются значения координат точки с помощью функции readln.
Проверяется условие: если сумма квадратов координат точки меньше или равна 1, и абсолютное значение координаты y больше или равно 0.5, то выполняется следующее выражение. Иначе выполняется другое выражение.
Если условие выполняется, то переменной u присваивается значение, рассчитанное по формуле: корень из ((абсолютное значение x + корень из (x^2 + y^2))/2).
Если условие не выполняется, то переменной u присваивается значение, рассчитанное по формуле: корень из ((абсолютное значение y + корень из (x^2 + y^2))/2).
Выводится текст u= и значение переменной u с точностью до двух знаков после запятой с помощью функции write.