Помогите, пожалуйста, буду очень благодарна ♥️ (pascal)

спасибо большое (:

Пожалуйста.

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