Вывести числа, принадлежащие отрезку [A,B], кратные числу 3.
В програме pascalABC, желательно с блок-схемой

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.