Что здесь не так? 7 строчка: Форматное выражение может использоваться только внутри write, writeln и str.

Сама программа:
program n_1;
var x1, x2, y1, y2, x, y: integer;
a: Boolean;
begin
writeln ('Введите значения координат');
readln (x1, x2, y1, y2, x, y);
a:= (x>x1)and(x<2)and(y>y2)and(y<y1);
writeln ('x=a');
writeln ('y=a');
writeln ('Точка с координатами принадлежит прямоугольнику', a);
end.

Если брать за вершины верх левый и низ правый то будет правильно (y>y2)and(y<y1)

Если брать за вершины низ левый и верх правый то будет правильно (y>y1)and (y<y2)

Спасибо большое!

:)

Сделайте рисунок и проверьте

За вершины прямоугольника берите верх левый и низ правый

Должно работать)

Что-то я туплю... Тогда разве x не должны тоже меняться?

х местами не меняется он как был справа и с лева так и остался, он поменял свое положение сверху вниз и наоборот

Если не понимаете могу графически объяснить)

program n_1;var x1, x2, y1, y2, x, y: integer;a: Boolean;beginwriteln ('Введите значения координат');readln (x1, x2, y1, y2, x, y);a:= (x>x1)and(x<x2)and(y>y1)and (y<y2);writeln ('Точка с координатами принадлежит прямоугольнику ', a);end.И мне кажется, что было бы удобнее вводить сначала одни координаты (x1,y1), а затем другие (x2,y2)...