Вывести числа от 10 до 30, которые делятся на 2 и на 3, но не делятся на 4

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ ".../Отделы/Обмен/";

ПЕР
  сч: ЦЕЛ;

УКАЗ
  ОТ сч := 10 ДО 30 ВЫП
    ЕСЛИ сч ОСТАТОК 2 = 0 И сч ОСТАТОК 3 = 0 И сч ОСТАТОК 4 # 0 ТО
      Вывод.ЧЦел("%d ", сч, 0, 0, 0)
    КОН
  КОН

КОН Задание.