【世博会攻略-1】（2+2+2+2+2=10分）
味子很想去游览世博会，可是听说世博会很多展馆需要排队很长时间，她又犹豫了。聪明的她就想用程序来帮助她选择展馆。现在味子已知n个展馆分别需要的排队时间她想从中选出排队时间最少的10个展馆作为候选对象，如果她去世博会，她就会选择这些展馆去参观。
下面就是味子用来选择这10个展馆的程序，请完善该程序。
输入数据第一行只有一个整数n(不超过300)，表示总的展馆数量。第二行一共包含n个用空格分隔的整数，依次表示每个展馆可能需要的排队时间，第i个数值表示编号为i的展馆所需要的排队时间。
输出只有一行，包含10个用空格分隔的整数，表示排队时间最少的10个展馆的编号。
输入样例：
15
5 3 9 10 2 3 4 1 6 7 8 11 15 2 12
输出样例
8 5 14 2 6 7 1 9 10 11

program test_1005 
var 
 n,i,j,k,t:integer; 
 a:array[1..300] of integer; 
 b:array[1..300] of integer; 
begin 
 readln( n ); 
 for i:=1 to n do begin read(a[i]);b[i]:=i;end; 
 for i:=1 to 10 do 
 begin 
   k:=i ; 
 For j:=i+1 to n do if a[j]<a[k] then k:=j ; 
 if k<>i then 
 begin 
  t:=b[i];b[i]:=b[k];b[k]:=t; 
  t:=a[i];a[i]:=a[k]; a[k]:=t ; 
 end; 
end; 
 for i:=1 to 10 do write( b[i],’  ’); 
end.