Найти количество четных элементов массива, состоящих из 8 элементов. Паскаль.

var a: array[1..8] of Integer;i,n: Integer;beginfor i:=1 to 8 do readln(a[i]);for i:=1 to 8 dobeginif a[i] mod 2=0 then inc(n);end;writeln(n);end.