uses crt;
var a:array[1..1000000] of longint;
n,i,max,min,s,j:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap gia tri phan tu thu ',i,': '); readln(a[i]);
end;
for j:=1 to n do
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Max: ',max);
writeln('Min: ',min);
for j:=min+2 to max-2 do if j<>a[i] then inc(s,j);
writeln('Tong cac so thuoc doan [min,max] (khong xuat hien trong mang): ',s);
readln;
end.