инфа, 9 класс

найти сумму всех натуральных чисел до n, которые кратны 3 и одновременно являются нечётными. эти числа вывести на экран в одну строку.

varn, i : longint;beginreadln(n);for i:= 2 to n doif (i mod 2 <> 0) and (i mod 3 = 0) thenbeginwrite(i);write(' ');end;end;end.