Разветвляющийся вычислительный процесс Опции

[Wolfbert74]

А здравствуйте, а проверьте пожалуйста решение задания:
Пусть D – заштрихованная часть плоскости, и пусть задана точка своими координатами (X, Y). Запись (X, Y) принадлежит D означает, что точка с координатами X, Y лежит внутри заштрихованной области D. Определить значение функции U следующим образом:
U =X2-1, если (X,Y) принадлежит D,
| X-1 |, в противном случае.

var
x,y,u:real;
begin
write('Введите  x,y ');
readln(x,y);
if ((x>0) and (y>0) and (x*x+y*y<0.3*0.3)) or (y<0) or (x*x+y*y>1) then
U:=abs(x-1)
else
U:=sqr(x)-1;
writeln(u);
end.

Заранее большое спасибо!

[APAL]

Да вроде как все правильно.