Решите задачу по информатике за 7 класс на Pascale, через Integer.

Даны три числа нужно вывести среднее при этом они не могут быть одинаковыми.

Например: 6, 10, 3 вывести 6.

Например: 13, 5, 11 вывести 11.

Var

x, y, z, mid:integer;

begin

Readln (x, y, z);

if (x > y) and (x > z) then

if z > y then mid:=z

else mid: = y;

if (y > x) and (y > z) then

if z > x then mid:=z

else mid: = x;

if (z > y) and (z > x) then

if x > y then mid:=x

else mid: = y;

Writeln (mid);

end.

Пример:

4 6 47

6