Написать код программы на языке pascal.имеется массив a из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. найти номера первых двух рядом стоящих одинаковых элементов в массиве. так, если a={2,6,4,4,2,5,5,4}, результат: 3 и 4
program pr;
const n = 10;
var
A:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do readln(A[i]);
for i:=1 to (n-1) do
begin
if A[i]=A[i+1] then begin
writeln(i,' и ',i+1);
break;
end;
end;
end.