program p ;

type a = array[1..10] of integer ;
var m : a ;
var i , s , flag : integer;

begin
  s := 0 ;
  flag := 0 ;

  writeln ('Budem vvodit 10 chisel' ) ;
  for i := 1 to 10 do begin
                 write ( 'vvedi chislo nomer ' , i , ' =' ) ;
                 readln ( m[i] );
                 end;

  for i := 10 downto 1 do begin
                 if m[i] = s then flag := i ;
                 s := s + m[i] ;
                 end ;

 if flag <> 0  then writeln ( ' est element(y), vpervye pod nomerom ' , flag )
 else writeln ('net elementov' ) ;

end.