Решение задачи №13 из главы 9

Решение задачи №13 из главы 9

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

var a,b,c:integer
  begin
    writeln('Vvedite chislo A');
    readln(a);
    writeln('Vvedite chislo B');
    readln(b);
    writeln('Vvedite chislo C');
    readln(c);
    if (a < b) and (b < c)
       then writeln('Medianaia ravna ', b);
    else
       writeln('Net mediannoi');
  readln();
  end.