Паскаль. Составить программу, попадают ли ведённые данные в закрашенную область.

var x,y : real;beginwrite('x = '); readln(x);write('y = '); readln(y);if (x*x+y*y<=1)and(x>=0)or(y>=-x/2-1)and(y<=x/2+1)and(x<=0)  then writeln('Да')  else writeln('Нет')end.Пример:x = -1y = 0.4Да