program PascalGuru;
var X,Y,Z:array[1..100] of integer; {описание переменных}
i,j,n,ny,nz:integer;
count_uniq:integer;
s:boolean;

begin
write('Razmer massiva: '); readln(n); {ввод размерности массива}

writeln ('Vvedite elementy massiva X: ');
{for i:=1 to n do begin
write ('X[',i,']='); readln (X[i]); end;} {ввод элементов массива}
for i:=1 to n do X[i]:=-9+random(37);

writeln ('Vot vvedennyi vami massiv X: ');
for i:=1 to n do write (X[i]:4,' '); {вывод элементов массива}

count_uniq:=0;
for i:=1 to n do
begin
s := true;
for j:=1 to i-1 do
if X[j]=X[i] then s:=false;
if s then inc(count_uniq);
end;

writeln;
if n=count_uniq then writeln('Vse chisla v etom massive razlichnye')
else
begin
writeln;
write('Povtoriaiushchiesia elementy massiva:');
ny:=0;
for i := 1 to n do
for j := 1 to n do
if (i<>j) and (X[j]=X[i]) then begin inc(ny); Y[ny]:=X[i]; end;

nz:=0;
for i:=1 to ny do
begin
s := true;
for j:=1 to i-1 do
if Y[j]=Y[i] then s:=false;
if s then begin inc(nz); Z[nz]:=Y[i]; end;
end;

for i:=1 to nz do
begin
writeln;
write(Z[i],' s indexami: ');
for j:=1 to n do
if Z[i]=X[j] then write(j,'; ');
end;

end;

readln;
end.