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

link

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

program lesson9_13;
var
  a, b, c: integer;
begin
   a := 30;
   b := 25;
   c := 20;
   if (a > b) and (a < c) or (a < b) and (a > c) then
      writeln(a, ' - mediana')
   else if (b > a) and (b < c) or (b < a) and (b > c) then
      writeln(b, ' - mediana')
   else if (c > a) and (c < b) or (c < a) and (c > b) then
      writeln(c, ' - mediana');
   readln();
end.