Программа на языке Pascal:

program DivideByThreeNotByFive;
var
A, B, i, count: integer;
begin
write('Введите число A: ');
readln(A);
write('Введите число B (B > A): ');
readln(B);
count := 0;
writeln('Числа, которые делятся на 3, но не делятся на 5:');
for i := A to B do
begin
if (i mod 3 = 0) and (i mod 5 <> 0) then
begin
writeln(i);
count := count + 1;
end;
end;
writeln('Количество таких чисел:', count);
end.

Данная программа запрашивает у пользователя два числа A и B, затем выводит числа от A до B, которые делятся на 3, но не делятся на 5. Кроме того, программа выводит количество найденных чисел.