дан массив из N элементов .определить среднее арифметическое кратных 5 и некратных 10.решите пожалуйста .буду благодарна

vara:array[1..10000]of integer;n,i,k,c:integer;summ:real;beginreadln(n);for i:=1 to n doa[i]:=random(100);for i:=1 to n do beginif (a[i] mod 5=0)or(a[i] mod 10>0) then beginc:=c+a[i];k:=k+1;end;end;summ:=c/k;writeln(summ);end.