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

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

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

program u9z15;
var a,b,c:integer;

begin
  writeln('vvedite 3 chisla');
  readln(a,b,c);
  if ((a > b) and (a < c)) or ((a > c) and (a < b)) then
  writeln('mediana ', a )
  else
   if ((b > a) and (b < c)) or ((b > c) and (b < a)) then
     writeln('mediana ', b)
     else
     writeln('mediana ',c);
  readln();
end.