Написать задачу в Паскале ABC

if (i mod 3 = 0) and (i mod 5 <> 0) then // Остаток от деления на 3 равен нулю, на пять — не равен.
begin
// тут что-то про функцию "принт"
end
Естественно, все в цикле.
________________
А можно и по-другому, но учитель вряд ли поймет и простит =)) В цикле с шагом 3 проходим от 21 до 48, если число делится на 5 — не печатаем его. Остальные печатаем. Поставленную задачу решит 100% верно, но в случае изменения условий придется кардинально менять, потому - говнокод.