var a:array[0..10] of integer;
i,x:integer;
Begin
read(x);
randomize;
for i := 1 to 10 do begin
a[i]:=random(4);
if a[i]=x then writeln('a[',i,']');
end;
End.
