real a(99);read*,n;read*,(a(i),i=1,n);do j=-999,99;do i=1,n;if(a(i)==-j)print'(i0" "$)',-j;enddo;enddo;end