Полоса - Turbo Pascal

Формулировка задачи:

В декартовой системе координат полоса задана уравнениями x = a и x = b.Для заданных точек определите,лежат ли они внутри полосы или на её границе

Решение задачи: «Полоса»

Листинг программы

if a>b then
 begin
  x:=a;
  a:=b;
  b:=x;
 end;

Объяснение кода листинга программы

В коде используется условное выражение if a>b then, которое проверяет, что значение переменной a больше значения переменной b.
Если условие истинно (то есть a действительно больше b), то выполняется блок кода, начинающийся с begin.
В блоке кода присваивается значение переменной x равное значению переменной a. Это необходимо для того, чтобы значение переменной a не изменилось в процессе выполнения блока кода.
Затем значение переменной a присваивается переменной b. Это необходимо для того, чтобы после выхода из блока кода значения переменных a и b были равны.
Наконец, значение переменной x присваивается переменной b. Это необходимо для того, чтобы значение переменной b стало равным значению переменной x, то есть значению переменной a до начала выполнения блока кода.
Код завершается, и значения переменных a, b и x остаются неизменными.