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

Var
n, i : longint;
begin
readln(n);
for i:= 2 to n do
if (i mod 2 0) and (i mod 3 = 0) then
begin
write(i);
write( );
end;
end;
end.