Средняя точка

На числовой прямой заданы своими координатами три различные точки. Требуется найти точку, лежащую строго между двумя другими.
---------------------------
НУ начнем с того, что у нас всего 6 условий, когда по середине a(2 варианта), когда по середине b(тоже 2 варианта), когда по середине c(2 варианта), исходя из этого, напишем код.
---------------------------
var
 a,b,c,d:longint;
 begin
  readln(a,b,c);
  if (a>b) and (a<c) then writeln(a);
  if  (b>a) and (b<c) then writeln(b);
  if  (c>a) and (c<b) then writeln(c);
   if (a<b) and (a>c) then writeln(a);
  if  (b<a) and (b>c) then writeln(b);
  if  (c<a) and (c>b) then writeln(c);
  end.