Алгоритм сравнения трех чисел - Pascal

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

Голову сломал уже. Подскажите оптимальный алгоритм сравнения трех чисел. Необходимо учесть все варианты, в том числе равенство. У меня получается не 10 сравнений, а это много.

Решение задачи: «Алгоритм сравнения трех чисел»

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

if ((a=b) and (a=c) and (b=c)) then
   begin
   if ((a>b) and (a>c))  then
      writeln ('a больше b и c');
   if ((a<b) and (b>c)) then
      writeln ('b больше a и c');
   if ((a<c) and (b<c)) then
      writeln ('c больше a и b');
   end

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

Название переменных: a, b, c Значения переменных: числовые значения, например, 3, 5, 3
Проверка равенства трех чисел:
- Выполняется проверка равенства a, b и c
В случае равенства всех трех чисел:
- Проводится проверка наибольшего числа: - Если a больше b и c, выводится сообщение a больше b и c - Если b больше a и c, выводится сообщение b больше a и c - Если c больше a и b, выводится сообщение c больше a и b