СРОЧНО!!! ОЧЕНЬ СРОЧНО! ПОМОГИТЕ.... Дан массив, состоящий из целых чисел. Напишите программу, которая определяет, есть

Запишем программу в Паскале, определяющая, есть ли в массиве пара соседних элементов с одинаковыми знаками.ДаноНачало выполнения алгоритма:constn=10000;vara:array[1..n]of integer;i,n1, flag:integer;beginreadln(n1);for i:=1 to n1 doread(a[i]);for i:=1 to n1-1 doif ((a[i]<0)and(a[i+1]<0))or((a[i]>0)and(a[i+1]>0))thenflag:=1;if flag=1 thenwriteln(\'YES\') elsewriteln(\'NO\');end.Примечание: Конструкцию ((a[i]<0)and(a[i+1]<0)) or ((a[i]>0)and(a[i+1]>0)) можно заменить на (a[i]*a[i+1])>0