Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4. PASKAL​

program natural;

   uses CRT;

   var n, number, result, i: integer;

begin

   clrscr;

   writeln('Enter n');

   readln(n);

   result := 0;

   for i := 1 to n do

   begin

       readln(number);

       if number mod 4 = 0 then result := result + 1;

   end;

   writeln('Result is ', result);

   readln

end.