Вводятся два числа а и в (в> а). вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество. (паскаль)

Var
a, b, i, count: integer;
begin
readln(a);
readln(b);
count:=0;
for i:=a to b do
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
inc(count);
writeln(i);
end;
writeln('Количество = ', count);
end.