Пожалуйста посчитайте сделать программу, молю!!!

var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x>=0)and((y>=0)and(x*x+y*y<=6*6)or(y<0)and(y>=x-6))
  then writeln('Да')
  else writeln('Нет')
end.

Пример:
x = 4
y = -4
Нет