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

//PASCAL ABC.NETvar  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.