C++ :

#include<bits/stdc++.h>
using namespace std;
double a;
double sum,maxx,minn=15;
int main()
{
	for(int i=1;i<=10;i++)
	{
		cin>>a;
		if(a<minn)minn=a;
		if(a>maxx)maxx=a;
		sum+=a;
	}
	sum-=(minn+maxx);
	printf("%.1f",sum/8);
   return 0;
}

Pascal :

var
  s,max,min:real;
  i:longint;
  a:array[1..10] of real;
begin
  max:=-maxlongint;
  min:=maxlongint;
  for i:=1 to 10 do 
  begin
    read(a[i]);
    s:=s+a[i];
    if max<a[i] then max:=a[i];
    if min>a[i] then min:=a[i];
  end;
  s:=s-max-min;
  writeln(s/8:0:1);
end.