   program abc159d2
      implicit none
      integer::n, a(200000)=0,b(200000)=0,i
      integer(8)::x=0

!Aは元データ
!Bは書かれている数字がそれぞれ何個ずつあるかを格納している配列

         read(*,*) n
         read(*,*) a(1:n)
         do i=1,n
            b(a(i))=b(a(i))+1
         end do
         do i=1,n
            x=x+(b(i)*(b(i)-1))/2
         end do
         do i=1,n
            print *, x-(b(a(i))-1)  !(n*(n-1))/2-((n-1)*(n-2)/2)=n-1
         end do
         stop

   end program abc159d2