var
   dat,sol:text;
   a,b,c,d:array[1..100] of integer;
   e:array[1..100,1..100] of integer;
   k,n,buf,s:integer;
begin
     writeln;
     assign(dat,'pos.dat');
     reset(dat);
     assign(sol,'pos.sol');
     rewrite(sol);
     n:=-1;
     while not eof(dat) do
           begin
               n:=n+1;
               read(dat,a[n+1]);
           end;
     c:=a;
     for s:=1 to n do
         for k:=1 to n do
            if  c[k]<c[k+1] then
              begin
                buf:=c[k];
                  c[k]:=c[k+1];
                   c[k+1]:=buf;
                        end;
         for k:=1 to n do
             if c[k]=c[k+1]+1 then
                  begin
                     d[k]:=c[k];
                     d[k+1]:=c[k+1];
                  end;
         s:=0;
         for k:=1 to n do
             if d[k]=d[k+1]+1 then
                s:=s+1;
             if s=1 then
                write(sol,'Poslidovnisti ne znaydeno') else
                begin
                   for s:=1 to n do
                        for k:=1 to n do
                             if (d[s]=a[k]) and (d[s]<>0) then
                                 write(sol,k,' ');
                end;
        close(sol);
        close(dat);
        end.