Составить программу которая определяет количество чисел в интервале от 100 до 1000 одновременно делящихся на 5 и 21

program zz1;

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

begin

for n:=100 to 1000 do / / организуем цикл, в котором переберем все числа от ста до тысячи

if (n mod 5 = 0) and (n mod 21 = 0) then b:=b + 1; / / проверяем условие, если число из цикла одновременно делится на 5 и 21, то считаем его

write (' количество чисел, из заданного диапазона, одновременно делящихся на 5 и 21 = ', b); / / выводим ответ

end.