Написать на языке Паскаль алгоритм нахождения количества натуральных четырехзначных чисел, каждое

program zzz1;

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

begin

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

if (i mod 2 lt;gt; 0) and (i mod 3 lt;gt; 0)  // проверяем условие, если очередное четырехзначное число не делится на два и сразу не делится на три, то

then a:= a + 1; // считаем число, увеличивая значение счетчика на единицу

write ( количество естественных четырехзначных чисел, каждое из которых не делится ни на 2, ни на 3 = , a);  // выводим ответ

end.