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

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

program project13;
{
Даны три переменные. Надо найти медиану (среднее число).
}
var
  a,b,c:integer;
  b1:boolean;
begin
  writeln('Vvedite chislo a: ');
  readln(a);
  writeln('Vvedite chislo b: ');
  readln(b);
  writeln('Vvedite chislo c: ');
  readln(c);

  b1:=((a>b)and(c>a)) or ((b>a)and(a>c));
  if(b1) then writeln('mediana ravna ', a)
  else if(b>c) then writeln('mediana ravna ', c)
  else writeln('mediana ravna ', b);
end. 
Консоль:
Vvedite chislo a: 
4

Vvedite chislo b: 
1
6

Vvedite chislo c: 
9

mediana ravna 9