из массива выписать числа у которых равные соседи а потом числа у которых неравные (первый и последний элементы массива не рассматривать) Pascal