Обозначим пересечения переменными и решим небольшую систему :)
название словаря - 17 бит (если с пробелом , без пробела 16 бит)
составитель - 11 бит
издательство - 12бит
var a:array[1..11]of integer;
i:integer;
begin
randomize;
for i:=1 to 11 do a[i]:=random(31)-20;
for i:=1 to 11 do write(a[i],' ');
writeln;
for i:=1 to 11 do if a[i] mod 2<>0 then a[i]:=a[i] div 3 else a[i]:=a[i]*5;
for i:=1 to 11 do write(a[i],' ');
end.