Ответ:

var a,b,c,mn,mx,sr:integer;

begin

writeln('Введите 3 целых числа:');

read(a,b,c);

if a>b then mx:=a else mx:=b;

if c>mx then mx:=c;

if a<b then mn:=a else mn:=b;

if c<mn then mn:=c;

sr:=a+b+c-mn-mx;

write('Среднее число=',sr);

end.