Написать программу, которая формирует случайным образом массив из N целых чисел, лежащих в диапазоне от 1 до 5, после чего на экран выводится сам массив и номера элементов, совпадающих с первым элементом

const

N = 5;

var

a: array [1 ... N] of integer;

i: integer;

begin

for i: = 1 to N do

a[i]: = random (5) + 1;

writeln ('Сформированный массив:') ;

for i: = 1 to N do

writeln (a[i]) ;

writeln ('Номера элементов, совпадающих с первым элементом:') ;

for i: = 2 to N do

if a[i] = a[1] then writeln (i) ;

end.