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

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

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

var a, b, c: real;
begin
  writeln('Введите 3 числа:');
  readln(a, b, c);
  if ((a <= b) and (a >= c) or (a >= b) and (a <= c)) then
   writeln('Первое число является медианой')
  else if ((b <= a) and (b >= c) or (b >= a) and (b <= c)) then
        writeln('Второе число является медианой')
       else
        writeln('Третье число является медианой');
  readln();
end.