Вывести числа, принадлежащие отрезку [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.