дан массив целых чисел.найти количество частей массива,значения которых кратны 3 и

Program zadacha;vara: array[1..1000] of integer;i,n,kolvo: integer;beginwriteln('vvedite kol-vo elementov massiva');read(n);for i:=1 to n do begina[i]:=random(500);write(a[i]:6);end;writeln();kolvo:=0;for i:=1 to n do beginif (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then begin kolvo:=kolvo+1;write(a[i]:6);  end;end;writeln();writeln('kol-vo elementov, kratnih 3, 5 = ', kolvo);end.