Question

создайте программу содержащую ветвления и определяющую принадлежит ли точка с координатами (X,Y) заштрихованной области

Answer 1

var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.