program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
     a,b:array[1..10001] of integer;
     t,i,n,t1,t2,j:longint;
begin
 { assign(input,'d:\input.txt'); reset(input);
   assign(output,'d:\output.txt'); rewrite(output);}
    readln(n);
    if n=1 then begin write(1); exit; end;
    for i:=1 to n do
        begin
           read(a[i]);
           b[i]:=i;
        end;
    for i:=1 to n-1 do
      for j:=i+1 to n do
      if a[i]<a[j] then
         begin
            a[i]:=a[i]+a[j];
            a[j]:=a[i]-a[j];
            a[i]:=a[i]-a[j];
            b[i]:=b[i]+b[j];
            b[j]:=b[i]-b[j];
            b[i]:=b[i]-b[j];
         end;
     t:=-1; a[n+1]:=-1;
     repeat
     if (t<>b[1]) and (a[1]<>0) then
       begin
        t:=b[1];
        a[1]:=a[1]-1;
       end
     else
     if (t<>b[2]) and (a[2]<>0) then
       begin
        t:=b[2];
        a[2]:=a[2]-1;
       end;
     i:=1;
     while a[i]<a[i+1] do
        begin
            j:=i+1;
            a[i]:=a[i]+a[j];
            a[j]:=a[i]-a[j];
            a[i]:=a[i]-a[j];
            b[i]:=b[i]+b[j];
            b[j]:=b[i]-b[j];
            b[i]:=b[i]-b[j];
            i:=i+1;
         end;
     i:=2;
     while a[i]<a[i+1] do
        begin
            j:=i+1;
            a[i]:=a[i]+a[j];
            a[j]:=a[i]-a[j];
            a[i]:=a[i]-a[j];
            b[i]:=b[i]+b[j];
            b[j]:=b[i]-b[j];
            b[i]:=b[i]-b[j];
            i:=i+1;
         end;
     write(t,' ');
     until (a[2]=0);
     if t<>b[1] then write(b[1]);
{     sleep(112121);}
{   close(input);
   close(output); }
end.

give me wrong test, please!