Даны три целых числа, найти среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего — Pascal(Паскаль)

var x,y,z,mx,mn,sr:integer;
begin
readln(x);
readln(y);
readln(z);
mx:=x;
if y>mx then mx:=y;
if z>mx then mx:=z;
mn:=x;
if y<mn then mn:=y;
if z<mn then mn:=z;
sr:=x+y+z-mx-mn;
writeln('Srednee: ',sr);
end.