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

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

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

var a, b, c, m: integer;
begin
  writeln ('Введите три числа: ');
  readln (a, b, c); // считываем три числа, введенные пользователем
  if ((a >= b) and (b >= c) or (a <= b) and (b <= c)) then //случаи, когда b посередине в числовом ряду
    m := b  // медианой будет b
  else if ((b >= a) and (a >= c) or (b <= a) and (a <= c)) then //случаи, когда а посередине в числовом ряду
      m := a  // медианой будет а
    else       // в остальных случаях посередине будет с
      m := c;  // медианой будет с
  writeln ('Медиана этих чисел: ', m);  // выводим медиану на экран
  readln();
end.

Вывод в консоли:

Введите три числа:
9
54
12
Медиана этих чисел: 12