Написать программу выводо на экран элементов кратных числу 3 pascal

Program lol;
var a:integer;
begin
for a:=100 downto 1 do
begin
if a mod 3 = 0 then
writeln(a);
end;
end.
P.S.
 в строке for a:=100 downto 1 do вместо 100 вставь нужное тебе значение советую меньше 1000 а то долго считает