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

[Элис]

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

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);

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

[kent]

если число целое, можно вот так:

uses Crt;

var x,i : Integer;
    min,max,average : Integer;
begin
     Clrscr;
     min := Maxint;
     max := -Maxint;
     WriteLn('Input number:');
     for i := 1 to 3 do begin
        Write('number #',i,':');
        ReadLn(x);
        if (x < min) then begin
          if (min <> Maxint) then
            average := min;
          min := x;
        end;
        if (x > max) then begin
          if (max <> - Maxint) then
            average := max;
          max := x;
        end;
        if ((average = max) or (average = min)) and
           (x < max) and (x > min) then
          average := x;
     end;
     WriteLn('Srednee: ',average,';');
     ReadKey;
end.