Задача для Free Pascal

[svob]

Все понял, тем кто мне помог огромное спасибо. Очень хороший форум, отзывчивые люди.

[ViktorR]

И все же следует иметь ввиду, что условие задачи несколько иначе звучит.
И зачем, тогда там задано деление на 3?

Предлагаю автору svob использовать предложенное решение и заменить тело цикла одним из предложенных вариантов вывода.

Интересно, а что скажет преподаватель?

[Stilet]

мне кажется или там нет '.'?

Упс.......

Интересно, а что скажет преподаватель?

Садись, два. "Ю ин тхе арми нау"

[Poma][a]

И зачем, тогда там задано деление на 3?

Не зачем. Есть вариант или от 1 до 150 div 12 циклом for шагать и выводить 12*i
Или просто в цикле
WriteLn (sum); Inc (sum, 12);