принадлежит ли заданная точка заштрихованной фигуре? напишите программу , используя условный оператор, для паскаль абс

program check_point;uses crt;var x, y: real;begin writeln('Введите кординаты'); write('X: '); readln(x); write('Y: '); readln(y); if (((x>=-5) and (x<=0) and (((y>=0) and (y<=5) and (y-x<=5)) or ((y>=-5) and (y<=0) and (-x-y<=5)))) or ((x>=0) and (x<=5) and (y>=0) and (y<=5) and (sqrt(x*x+y*y)<=5))) then writeln('Ответ: Принадлежит') else writeln('Ответ: Не принадлежит'); readkey();end.

Код в комментарии ниже: