Уровень B. Заполните массив случайными числами в интервале [0,5]. Определить, есть ли в нем элементы с одинаковыми значениями, стоящие рядом. Пример: Массив: 1 2 3 3 2 1 Есть: 3 Пример: Массив: 1 2 3 4 2 1 Нет

Program n1;const n=6;var a,i: integer;m:array [1..n] of integer;beginrandomize;write('иcходный массив:');for i:=1 to n dobeginm[i]:=random(6);write(m[i],' ');end;writeln;a:=0;for i:=1 to n-1 dobeginif m[i]=m[i+1]then beginif a=0then beginwrite('есть: ');a:=1;end;write(m[i],' ');end;end;if a=0then writeln('нет');end.