program papada_9
    ! variaveis
    integer :: i,j,k,soma_divisores_x,soma_divisores_y
    ! processamento e saida de dados
    do i = 1, 2000, 1
      soma_divisores_x = 0
      do j = 1, i-1 , 1
        if(mod(i,j)==0) soma_divisores_x = soma_divisores_x+j
      end do
      soma_divisores_y = 0
      do k = 1, soma_divisores_x-1, 1
        if(mod(soma_divisores_x,k)==0) soma_divisores_y = soma_divisores_y+k
      end do
      if(i==soma_divisores_y.and.i/=soma_divisores_x) write(*,*) i," eh amigavel de",soma_divisores_x
   end do
   stop
end program papada_9