Вывести в столбик целые числа диапазона [a; b] делящиеся на 3

Var i,a,crat: Integer;
begin
crat:=0;
Randomize();
for i:=1 to 10 do
begin
a:=random(10)+1;
if(a mod 3 = 0) then
begin
writeln(a);
inc(crat);
end;
end;
writeln('кол-во кратных 3 = ',crat);
end.