ПАСКАЛЬ. Ввести N чисел. Найти количество четных чисел среди них. Спасибо)

program n_1;

var n, i, m, s: integer;

begin

   s:=0;

   read(n);

   for i:=1 to n do begin

       read(m);

       if m mod 2 = 0 then s:=s+1;

   end;

   writeln(s);

end.