Program task2; var R, x, y : real; begin writeln('Введите значения R, x, y:'); read(R, x, y); if (((x >= 0) and (y >= 0) and (x * x + y * y <= R * R)) or ((x < 0) and (y < 0) and (y >= -x - R))) then writeln('Точка с координатами x: ', x, ', y: ', y, ' принадлежит заданной области.') else writeln('Точка с координатами x: ', x, ', y: ', y, ' не принадлежит заданной области.'); <span>end.</span>