Delphi. Елементы массива

Задано массив целых чисел A(n), n=<500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются и произведение всех чисел, не повторяются