Даны 3 различных числа. Определить, какое из них (первое, второе или третье) является средним

спасибо огромное! вы меня очень выручили! !!

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a,b,c:real;  Read(a,b,c); // не вводить одинаковых!  if a>b then    if a>c then // a > [b,c]      if b>c then Writeln('Среднее - второе число')      else Writeln('Среднее - третье число')    else Writeln('Среднее - первое число')  else    if b>c then // b > [a,c]      if a>c then Writeln('Среднее - первое число')      else Writeln('Среднее - третье число')    else Writeln('Среднее -  второе число')end.

var    a, b, c: real;function IsBetween(x, a, b: real): boolean;var    t: real;begin    if a < b then     begin        t := a;        a := b;        b := t;    end;    IsBetween := (a >= b) and (a >= x) and (x >= b);end;begin        Readln(a, b, c); // не вводить одинаковых!    Write('Среднее число №');        if IsBetween(a, b, c) then writeln(1);    if IsBetween(b, a, c) then writeln(2);    if IsBetween(c, b, a) then writeln(3);end.