archery

Verified answer

Var
    a, b, i: integer;
begin
    read(a);
    read(b);
    for i := a to b do
         if i mod 3 = 0 then
            writeln(i);
end.