Program NumbersDivisibleBy3;
vara, b, i: integer;
beginwriteln('Enter the range:');readln(a, b);
writeln('Numbers divisible by 3 in the range are:');
for i := a to b dobeginif i mod 3 = 0 thenwriteln(i);end;end.
Program NumbersDivisibleBy3;
var
a, b, i: integer;
begin
writeln('Enter the range:');
readln(a, b);
writeln('Numbers divisible by 3 in the range are:');
for i := a to b do
begin
if i mod 3 = 0 then
writeln(i);
end;
end.