Дан массив, состоящий из целых чисел. Напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками.

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.