как решали♥ ВАШИ рассуждения
var X: integer; begin for X:=1 to 100 do if ((X mod 3)=0) and not ((X<9) or not ((X mod 2)=0)) then Writeln(X) end.
жулек преобразования по де моргану больше или равно 9 делится на 2 и делится на 3