Нахождение среднего из трех чисел, хочу узнать - можно ли сделать проще Опции

[Элис]

Собственно - простейшая задача: есть три целых числа и надо найти среднее из них, то есть то, которое больше одного числа и меньше другого. все числа считаем разными.
Мне это дело пока с трудом дается, ну алгоритмы всякие и вот какой у меня родился код:

if (x > y) or (x > z) then
if(x < y) or (x < z) then
writeln(x)
else
if (y > z) then
writeln(y)
else
writeln(z)
else
if (y > z) then
writeln(z)
else
writeln(y);

Вроде работает правильно, при любых комбинациях чисел. Но у меня сомнения собственно по алгоритму - может быть можно сделать как-то проще, короче, красивее, может у меня запутанный и непонятный способ, а есть гораздо более просто, но я его не вижу...

[volvo]

Как вариант:

function min(a, b: integer): integer;
begin
  min := a;
  if a > b then min := b;
end;
function max(a, b: integer): integer;
begin
  max := a;
  if a < b then max := b;
end;

var
  a, b, c: integer;

begin
  ReadLn(a, b, c);
  writeln( 'average = ',
    (a + b + c) - min(a, min(b, c)) - max(a, max(b, c)) );
end.