Середнє з чисел

Дано три різні числа a, b, c. Вивести середнє з них.

Вхідні дані

Числа a, b, c цілі та за модулем не перевищують 1000.

Вихідні дані

Вивести середнє з трьох чисел.

Program triThicla;

Var a,b,c,max : integer;

Begin

Read( a,b,c );

If (a>b) and (a<c) or (a<b) and (a>c) then max:=a;

If (b>a) and (b<c) or (b<a) and (b>c) then max:=b;

If (c>a) and (c<b) or (c<a) and (c>b) then max:=c;

WriteLn( max );

end.