输入N个数（1

program sort(input,outupt);
var
i,j,n,t:longint;
a,num:array[0..100]of longint;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
num[i]=i;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>a[j])
begin
t:=a[i];a[i]:=a[j];a[j]:=t;
t:=num[i];num[i]:=num[j];num[j]:=t;
end;
for i:=1 to n do
writeln(a[i],' ',num[i]);
end.