Пожалуйста посчитайте написать программу в паскале!!!!Написать программу в паскале:В одномерном массиве из 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.