Создайте программу на языке паскаль, которая отвечает критериям текста​

var

 n, a, i, count: integer;

begin

 count := 0;

 readln(n);

 for i := 1 to n do

   begin

     readln(a);

     if a mod 4 = 0 then

         count := count + 1

   end;

 writeln(count);

end.