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

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

var a, b, c:integer;
begin

  writeln('Vvedite pervoe chislo (int) A =');
  readln(a);
  writeln('Vvedite vtoroe chislo (int) B =');
  readln(b);
  writeln('Vvedite vtoroe chislo (int) C =');
  readln(c);

  if ((a <= b) and (a >= c) or (a <= c) and (a >= b)) then
     writeln(a, ' - mediana')
  else if ((b <= a) and (b >= c) or (b <= c) and (b >= a)) then
       writeln(b, ' - mediana')
  else if ((c <= a) and (c >= b) or (c <= b) and (c >= a)) then
       writeln(c, ' - mediana');

  readln();
end.

КОНСОЛЬ

Vvedite pervoe chislo (int) A =
10
Vvedite vtoroe chislo (int) B =
12
Vvedite vtoroe chislo (int) C =
89
12 - mediana