Дан массив из 15 вещественных чисел. найти среднее арифметическое элементов массива , стоящих на местах кратных 3 и делящихся на 5 без остатка

Var
  a: array[1..15] of real;
  i: integer;
  b, c:real;
Begin
  for i:=1 to 15 do
    read(a[i]);
  for i:= 1 to 15 do
    if (((i mod 3)=0) and ((a[i] mod 5)=0) then
    Begin
       b:=b+a[i];
       c:=c+1;
    End;
  write(b/c);
End.