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

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

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

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