Program Main;
Var a:array[1..1000]of integer;
i,n,k:integer;
begin
write('Введите количество элементов в массиве: ');
readln(n);
writeln('Введите массив: ');
for i:=1 to n do read(a[i]);
writeln;
k:=0;
for i:=1 to n-1 do
if (a[i]=a[i+1]) then k:=k+1;
if (k>0) then writeln('Есть ',k,' пар соседних элементов с одинаковым значением') else
writeln ('Нет пар соседних элементов с одинаковым значением');
end.