Задача Turbo Pascal 7

Question

Проверить истинность высказывания "Точка M с координатами (x,y) лежит внутри квадрата, заданного координатами левого верхнего - (x1,y1) и правого - (x2,y2)"

Олег Молчанов · Accepted Answer

Var x,y,x1,x2,y1,y2: real; 
writeln('Вводи x,y,x1,y1,x2,y2'); 
readln(x,y,x1,y1,x2,y2); 
if (x>x1) and (x<x2)>y2) then writeln ('Выражение истинно') else writeln ('Выражение ложно'); 
end.