Проще всего осуществить слияние данных, следуя указаниям Мастера слияния, который запускается с помощью кнопки Начать слияние на вкладке Рассылки.
КАРП-кара-кора-КОЗАВОЛ-кол-кот-КИТЛУЖА-ложа-кожа-кора-гора-горе-МОРЕ<span>ПАУК-парк-пара-фара-фура-мура-МУХА
</span>
Написано на Pascal
var a:real;i,k:integer;
begin
writeln('Введите 3 числа');
for i:=1 to 3 do
begin
read(a);
if (a>=2.5) and (a<=5.2) then begin
writeln('Число ',a,' входит в интервал');
k:=k+1;
end;
end;
if k=0 then writeln('Таких чисел нет');
end.<span>
</span>
Как бы написал я:
program n_1;
var x1, x2, y1, y2, x, y: integer;
begin
writeln ('Введите значения координат(x1,x2,y1,y2,x,y):');
readln (x1, x2, y1, y2, x, y);
if (x>x1) and (x<x2) and (y>y2) and (y<y1) then writeln('Точка с координатами (',x,';',y,') пренадлежит прямоугольнику')
else writeln('Точка с координатами (',x,';',y,') не пренадлежит прямоугольнику');
end.
Булевой переменной не нужно, она же 1 раз используется.
Далее, ошибка была (x<2) нужно было
Ну или если только без ошибки, то вот:
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<x2)and(y>y2)and(y<y1);
writeln ('Точка с координатами принадлежит прямоугольнику ', a);
end.