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

const  n = 20;var  a: array[1..n] of integer;  i: integer;  flag: boolean;begin  Randomize;  Writeln('Элементы массива');  for i := 1 to n do  begin    a[i] := Random(19999) - 9999;    Write(a[i]:6);  end;  Writeln;  i := 1;  flag := False;  repeat    flag := (sign(a[i]) = sign(a[i + 1]));    i := i + 1  until flag or (i > n);  if flag then Writeln('Есть пара соседних элементов с одним знаком')  else Writeln('Нет пар соседних элементов с одним знаком')end.Тестовое решение:Элементы массива  2440 -2414 -3192 -6912 -8537  7364  2869 -2505  8875  2662   401  7398  2213  8804  2039  1485  4213  8359 -2410 -5844Есть пара соседних элементов с одним знаком