PascalABC.net Если можно, то сделайте по простому

Пришло время проверить, правильным ли было решение инвестировать деньги в заводы. Вы решаете приехать на один из заводов с инспекцией и проверить шестеренки, изготавливаемые там. Проверка проста - у всех шестеренок должен быть одинаковое количество зубцов.
Формат входных данных

Вводится целое положительное число n, где n - количество деталей для проверки (2 < n < 1000)

Вводится n целых чисел m, где m - количество зубцов у каждой шестеренки (1 < m < 100)

Формат выходных данных

Выводится сообщение YES в случае, если количество зубцов у всех шестеренок оказалось одинаковым и NO, если хотя бы одна из них имеет отличное от других количество зубцов
Примеры

входные данные
5
2 3 2 2 2

выходные данные
NO

12
6 6 6 6 6 6 6 6 6 6 6 6

выходные данные
YES