const n=15;

var a:array [1..n] of integer;

i,k:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(6);

write(a[i]:3,' ')

end;

for i:=2 to n do

if (a[1]=a[i]) and (i mod 2 <> 0) then k:=k+1;

writeln;

write('Первый элемент встречается в данном массиве на нечётных местах ',k,' раз')

end.