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

Var x,y : real;
begin
write(x = ); readln(x);
write(y = ); readln(y);
if (x*x+y*ylt;=1)and(xgt;=0)or(ygt;=-x/2-1)and(ylt;=x/2+1)and(xlt;=0)
  then writeln(Да)
  else writeln(Нет)
end.

Пример:
x = -1
y = 0.4
Да