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

var k: integer; i: integer; n: integer;begin k := 0; for i:= 1 to 1000 do begin readln( n ); if n = 0 then break; if (n>=100) AND (n<=999) AND (n mod 4 = 0) then k:= k+1; end; writeln( k );end; Строкой \"for i:= 1 to 1000 do\" организовывается цикл, в котором будет принята последовательность чисел количеством до 1000 элементов. Строка \"readln( n );\" считывает в переменную \"n\" натуральное число. Если введенное число равно \"0\", то строка \"if n = 0 then break;\" завершает цикл и переходит к выводу результата. В строке \"if (n>=100) AND (n<=999) AND (n mod 4 = 0) then k:= k+1;\" проверяется, трехзначное ли число (т.е. его значение от 100 до 999 включительно) и кратно ли оно четырем. Если выполняются все эти условия, то увеличивается счетчик \"k\". В конце, после выхода из цикла строка \"writeln( k );\" выводит результат.