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

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

Вхідні дані

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

Вихідні дані

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

Вхідні дані

11 3 7

Вихідні дані

7

program Ser;

var a,b,c : integer;

BEGIN

readln (a,b,c);

if ((a>b) and (a<c)) or ( (a<b) and (a>c) ) then writeln(a);

if ((b>a) and (b<c)) or ( (b<a) and (b>c) ) then writeln(b);

if ((c>a) and (c<b)) or ( (c<a) and (c>b) ) then writeln(c);

END.