Помогите решить 3 вариант 2 задачу

const n=10; var   a: array[1..n] of integer;   sa: real;   k: integer;   i: byte; begin   sa:=0; k:=0;   for i:=1 to n do begin;         read (a[i]);     if a[i] mod 4 =0 then begin        sa:=sa+a[i];       k:=k+1;     end;      end;   sa:=sa/k;   writeln;   writeln ('Среднее значение элементов, кратных четырем, = ',sa); end. ---------------------------------- Пример: 4 6 8 10 12 16 14 18 20 22 Среднее значение элементов, кратных четырем, = 12