Program NumbersDivisibleBy3;

var
a, b, i: integer;

begin
writeln${}^{\prime }Entertherange{:}^{\prime }$;
readln$a,b$;

writeln${}^{\prime }Numbersdivisibleby3intherangeare{:}^{\prime }$;

for i := a to b do
begin
if i mod 3 = 0 then
writeln$i$;
end;
end.