Даны натуральное число n и целые числа a1, a2,.., an. Найти количество пар «соседних» чисел ai, равных между собой. В паскале.

// PascalABC.NET 3.1, сборка 1246 от 23.05.2016begin  var a:=ArrRandom(ReadInteger('n='),1,5); a.Println;  Writeln('Количество пар с равенством равно ',    a.Pairwise.Where(x->x[0]=x[1]).Count)end.Тестовое решениеn= 155 3 3 3 2 2 4 4 2 5 2 3 2 2 2Количество пар с равенством равно 6