Составить программку которая определяет количество чисел в промежутке от 100 до

program zz1;
var n, b:integer; // задаем переменные целого типа
begin
for n:=100 to 1000 do // организуем цикл, в котором переберем все числа от 100 до тыщи
if (n mod 5 = 0) and (n mod 21 = 0)then b:=b + 1; // проверяем условие, если число из цикла сразу делится на 5 и 21, то считаем его
write( количество чисел, из заданного диапазона, сразу делящихся на 5 и 21 = , b); // выводим ответ
end.