Напишите программу обмена значений переменных a, b, c в порядке возрастания

§ 1.2 Запись вспомогательных алгоритмов на языке Паскаль
Задание 6. Напишите программу обмена значений переменных a, b, c в порядке возрастания, т. е. так, чтобы a < b < c. Используйте процедуру swap.
procedure swap (var х, у: integer);
var m: integer;
begin
m := x ;
x := y;
у := m
end;

Вот пример программы на языке Паскаль для обмена значений переменных a, b и c в порядке возрастания с использованием процедуры swap:

program Zadacha6;
procedure swap(var x, y: integer);
var
  m: integer;
begin
  m := x;
  x := y;
  y := m;
end;
var
  a, b, c: integer;
begin
  writeln('Введите три целых числа:');
  readln(a, b, c);
  // Сортировка
  if a > b then swap(a, b);
  if a > c then swap(a, c);
  if b > c then swap(b, c);
  writeln('Числа в порядке возрастания: ', a, ' < ', b, ' < ', c);
end.

Пример программы на языке Python:

def swap(x: int, y: int) -> (int, int):
    return y, x  # Обмен значениями
# Основная часть программы
a = int(input('Введите первое целое число: '))
b = int(input('Введите второе целое число: '))
c = int(input('Введите третье целое число: '))
# Сортировка
if a > b:
    a, b = swap(a, b)
if a > c:
    a, c = swap(a, c)
if b > c:
    b, c = swap(b, c)
print('Числа в порядке возрастания: ', a, '<', b, '<', c)