Заполнить массив из 10 элементов случайными числами в интервале от 0 до 4 и…

Program Program1; Vara: array [1… 10] of integer; i: integer; rez: boolean; beginrandomize; write ('Массив: '); for i: =1 to 10 dobegina[i]: =random (5); write (a[i],','); end; rez: =false; for i: =1 to 10 dobeginif (i>1) and (a[i]=a[i-1]) then rez: =true; if (i<10) and (a[i]=a[i+1]) then rez: =true; end; if rez then writeln (' Есть одинаковые соседние элементы') elsewriteln (' Нет одинаковых соседних элементов'); end.