Задача 13 Урок 9

Задача 13 Урок 9:

У вас есть три числа (три переменные) найдите их медиану(link is external).
Примечание: это условие давалось как простая разминочная задачка для собеседования в Яндекс.

var a, b, c: integer;
begin
  writeln('Введите три целых числа: ');
  readln(a, b, c);

  if (a > b) then
      if (a < c) then
          writeln('Медиана: ', a)
      else if (b > c) then
          writeln('Медиана: ', b)
      else
          writeln('Медиана: ', c)
  else
      if (a > c) then
          writeln('Медиана: ', a)
      else
          if (b < c) then
              writeln('Медиана: ', b)
          else
              writeln('Медиана: ', c);

  readln();
end.   

Консоль:

Введите три целых числа:
8
3
10
Медиана: 8

Введите три целых числа:
15
13
9
Медиана: 13

Введите три целых числа:
32
93
55
Медиана: 55