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

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 (ngt;=100) AND (nlt;=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 (ngt;=100) AND (nlt;=999) AND (n mod 4 = 0) then k:= k+1;" проверяется, трехзначное ли число (т.е. его значение от 100 до 999 включительно) и кратно ли оно четырем. Если производятся все эти условия, то увеличивается счетчик "k". В конце, после выхода из цикла строчка "writeln( k );" выводит итог.