Нещодавно Козак Вус знайшов чарівне коло! По ньому розташовано n вершин, так що вершини i та i+1 — сусідні для 1≤i Козак Вус почав робити наступні дії з цим колом. Він вибрав число х. Якщо вершини i та j сусідні та ai=aj =x, то він розрізає коло по дузі, що сполучає ці дві вершини. Іншими словами, він робить розріз між двома сусідніми вершинами, значеннях яких рівні x.
Чи можна вибрати так число х, щоб Козак Вус зробив принаймні два розрізи?

Вхідні дані
Перший рядок містить одне ціле число n (2≤n≤50) — кількість вершин на колі.

Другий рядок містить n цілих чисел a1 ,a2,…,an(1≤ai≤50) — масив a.

Вихідні дані
Виведіть «Yes», якщо можливо обрати таке число x, що Козак Вус зробить хоча б два розрізи, інакше виведіть «No».

Пример ввода #1
5
1 2 3 1 1
Пример ответа #1
Yes
Пример ввода #2
7
4 2 7 4 4 50 4
Пример ответа #2
Yes
Пример ввода #3
5
5 4 2 2 1
Пример ответа #3
No

ДЗ для ВЕРЫ ВИКТОРОВНЫ:

Объяснение:

Var I, N, m: integer;

{Выводит таблицу квадратов до N числа}

Begin

Readln(N); //Что вводим в этой строке и зачем? Как можно подсказать пользователю, что ввести?  

{Вводим до какого числа нам нужно получить квадрат; Подсказать можно через WRITELN}

Writeln('Таблица квадратов чисел от 1 до N'); //Сколько раз выполняется этот оператор?

{Один раз}

For i:=1 to N do //Сколько раз выполнится цикл?

{N раз}

Begin //Зачем снова писать операторные скобки?

{Затем, что это цикл, который всегда обособляется и отделяет от остальных операторов}

m:=i*I;

Writeln(I,' ',m); //Как по-другому оставить пробелы между столбиками?

{Можно сделать так    -     Writeln(I:3,m:16);}

End;

End.

PascalABC.NET 3.7:

Пояснение:

RS - ReadString: Возвращает значение типа string, введенное с клавиатуры.

AdjacentGroup: Группирует одинаковые подряд идущие элементы, получая последовательность массивов.

SelectMany: Проецирует каждый элемент последовательности в новую последовательность и объединяет результирующие последовательности в одну последовательность.

.Len - .Length: Длина массива.

.Str - .JoinToString: Преобразует последовательность символов в строку, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

.Pr - .Print: Выводит последовательность символов на экран, не используя разделитель (при последовательность другого типа данных в качестве разделителя используется пробел).

Пример работы: