Решите задачу по информатике на Pascal.
Даны три числа вывести среднее число но при этом числа не могут быть одинаковыми.
Например 9, 3, 14 нужно вывести 9.
Или 15, 6, 1 нужно вывести 6.

Решение вашей задачи

//Максимально прямой(в значении тупой) код vara,b,c, max, min:real;beginReadln(a,b,c);if (a > b) and (a > c) then Max:= a;if (c > b) and (c > a) then Max:= c;if (b > a) and (b > c) then Max:= b;if (a < b) and (a < c) then Min:= a;if (c < b) and (c < a) then Min:= c;if (b < a) and (b < c) then Min:= b;if (a <> min) and (a <> max) then writeln(a);if (b <> min) and (b <> max) then writeln(b);if (c <> min) and (c <> max) then writeln(c);end. Пример:-9 3 63