PASCAL. Составить программу, содержащую ветвления и определяющую, при надлежит ли точка с координатами x и y заштрихованной области

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