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

Вопрос школьника по предмету Информатика

Даны 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.