Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, делящихся на 3 или на 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. Программа должна вывести одно число — количество чисел, делящихся на 3 или на 5.
ПАСКАЛЬ
var n, i, a, count:integer;
Begin
count:=0;
readln(n);
for i:=1 to n do begin
readln(a);
If (a mod 5 = 0) or (a mod 3 = 0) then count:= count + 1;
end;
write (count);
End.