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

program zz1;

var a, b, k:integer; / /задаем переменные целого типа

begin

write ('введите первое число'); / / вводим с клавиатуры первое число

read (a);

write ('введите второе число'); / / вводим с клавиатуры второе число

read (b);

if (a mod 3 = 0) and (a mod 5 0) then begin writeln (' число делится на 3 и не делится на 5 = ', a); k:=k + 1; end;

if (b mod 3 = 0) and (b mod 5 0) then begin writeln (' число делится на 3 и не делится на 5 = ', b); k:=k + 1; end;

writeln (' количество чисел, которые делятся на 3 и не делятся на 5 = ', k); / / выводим другой ответ

end.