В массиве A[100] найти среднее арифметическое, кратных 5 и кратных 3

var
  i,n:integer;
  p:real;
  a:array[1..100]of integer;
begin
for i:=1 to 100 do
  begin
  a[i]:=random(50)+1;
  write(a[i],' ');
  if (a[i] mod 5=0) and (a[i] mod 3=0) then
    begin
    p:=p+a[i];
    n:=n+1;
    end;
  end;
writeln;
p:=p/n;
writeln('Ответ: ',p);
end.