подсчитать количество элементов в массиве A[1...10] кратных 6 и выписать среднее арефметическое

//PASCAL ABC.NET

var  i, a: integer;  arr: array [1..10] of integer;
begin  for i := 1 to 10 do    read(arr[i]);  for i := 1 to 10 do  begin    if arr[i] mod 6 = 0 then      a += arr[i];  end;  Write(a/10);end.