Задача: Даны три различных целых числа (от -30000 до 30000 Вывести среднее из них. Формат ввода: В первой строке - первое целое число, во второй строке - второе целое число, в третьей - третье. Формат вывода: Целое число. Пример входных данных 2 3 4 Пример выходных данных 3 Написать на паскале,

var

a, b, c, avg: integer;

begin

readln(a);

readln(b);

readln(c);

if a < b then

begin

 if b > c then  

  begin

   if a > c then avg := a

   else avg := c;

  end

 else avg := b;

end

else

begin

 if (a > b) and (c > a) then avg := a

 else avg := c;

 if (a > b) and (b > c) then avg := b;

end;

if (a = b) or (b = c) then avg := b;

if a = c then avg := a;

writeln(avg);

end.