Написать программу в написать программу в паскале: в одномерном массиве из 10 целых чисел вычислить сумму четных

Var    a: array[1..10] of integer;    sum, i: integer;beginsum:=0;for i:=1 to 10 do    begin    readln(a[i]);    if a[i] mod 2=0 then        sum:= sum+a[i];    end;write(sum);end.