8. Напишите программу обмена значениями переменных a, b, c в порядке возрастания, т. е. так, чтобы a < b < c. Используйте функцию swap(). Исходные данные вводятся с клавиатуры.

Введём значения a, b и c. Последовательно сравним соседние элементы и при необходимости поменяем их местами с помощью процедуры Swap.

program SortThree;

var
  a, b, c: integer;

procedure Swap(var x, y: integer);
var
  t: integer;
begin
  t := x;
  x := y;
  y := t;
end;

begin
  readln(a, b, c);

  if a > b then Swap(a, b);
  if b > c then Swap(b, c);
  if a > b then Swap(a, b);

  writeln(a, ' ', b, ' ', c);
end.

Трёх сравнений достаточно: после них наименьшее число окажется в a, а наибольшее — в c.