Напишите программу,которая в последовательности натуральных чисел определяет количество трехзначных чисел кратных 4.Программа получает на вход натуральные числа,количество введённых неизвестно ,последовательность чисел заканчивается числом 0(0-признак окончания ввода ,не входит в последовательность).Количество чисел не превышает 1000.Введенные числа не превышают 30000.Программа должна вывести одно число :количество трехзначных чисел ,кратных 4.Входные данные:120;9;365;4;0.Выходные данные:1.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016begin  var k:=0;  var n:integer;  Writeln('Вводите натуральные числа; 0 - окончание ввода');  repeat    Read(n);    if (n>99) and (n<1000) and (n mod 4=0) then Inc(k)  until n=0;  Writeln(k)end.