Помогите решить задачу(в Паскале) Дан массив из 20 элементов. найти количество четных и нечетных чисел в массиве

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