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

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

У вас есть три числа (три переменные) найдите их медиану.

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