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

Var a: array [1..100] of integer;

chis,i: integer;

begin

readln(chis);

for i:=1 to chis do readln(a[i]);

write(Числа кратные 4:);

for i:=1 to chis do if (a[i] mod 4 = 0) then write(a[i], );

end.