Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8

const n=100;varm:array[1..n] of integer;a,b,i,j,k:integer;begin k:=0; b:=0; writeln ('введите количество цифр');read (j); for i:=1 to j do begin read(a); if (a mod 8) = 0 then begin b:=b+a; k:=k+1; end; end;write(b/(k));end.