В заданном одномерном массиве W, состоящем из 40 целых чисел, подсчитать количество четных элементов. Элементы массива - случайные числа​

var w:array [-100..100] of integer;

i,k:integer;

begin

 randomize;

 for i:=1 to 40 do begin

   w[i]:=random(101);

   write(w[i],' ');

   if w[i] mod 2 = 0 then inc(k);

 end;

 writeln;

 write(k);

end.