Так как сказано то что потратили одинаковое количество банок то коричневой краски потратили тоже 8 банок
Делаешь цикл от 16 до 10000.
Проверяешь каждое число кратно ли оно 2 (mod, %),
если да, кратно ли 16,31
var prod,i:integer;
begin
prod:=1;
for i:=10 to 99 do
if(i mod 15=0) then prod:=prod*i;
writeln(prod)
end.