var 
a:array [1..15] of integer;
i,min,max,s,k:integer;
begin
writeln ('Введите оценки');
for i:=1 to 9 do 
readln (a[i]);
min:=a[1];
max:=a[1];
for i:=1 to 9 do begin
if a[i]>max then  max:=a[i];
if  a[i]<min then  min:=a[i];
end;
s:=0;
k:=0;
for i:=1 to 9 do 
if a[i]=max then begin a[i]:=0; break; end;
for i:=1 to 9 do 
if a[i]=min then begin a[i]:=0; break; end;
for i:=1 to 9 do 
if a[i]<>0 then begin s:=s+a[i]; k:=k+1; end;
writeln ('оценка в атестате ',s/k);
end.