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

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