Найти количество чётных элементов массива

var a:array[1..20] of integer; i,k:integer; begin for i:=1 to 20 do begin read(a[i]); if not odd(a[i]) then k+=1; end; writeln(k); end.