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

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

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

var a, b, c : integer;
begin
  writeln('Vvedite 3 chisla:');
  readln(a, b, c);
  if (a <= b) and (a >= c) or (a >= b) and (a <= c) then
    writeln('Mediana= ', a)
  else
    if (b <= a) and (b >= c) or (b >= a) and (b <= c) then
      writeln('Mediana= ', b)
    else
      writeln('Mediana= ', c);
  readln();
end.