Помогите пожалуйста в паскале. Даны три числа, требуется найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Var a,b,c,mi: integer;begin readln (a,b,c); if ((b>a) and (bc) and (b if ((a>b) and (ac)) then mi:=a; if ((c>a) and (cb)) then mi:=c; write (mi); end.
Большое спасибо)