В массив А[10] занесены натуральные числа. Найти сумму тех элементов, которые кратны 2. pascal

const N = 10; var a: array [1..N] of integer; i, k: integer; begin for i := 1 to N do readln(a[i]);K:=0;for i:=1 to N doIf a[i] div 2=0 thenK:=k+a[i];Writeln(k);end.Может быть неправильно написана программа, с андроида неудобно