Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 4.Программа получает на вход количество чисел в последовательности а затем сами числа.В последовательности всегда имеется число кратное 4.Количество чисел не превышает 1000.Введенные числа не превышают 30000 программа должна вывести одно число количество чисел кратных 4.Решите пожалуйста
Var A, k, b,i:integer$ Begin Readln (b)$ K:=0$ For i:=1 to b do Begin Readln(a)$ If a mod 4=0 then k:=k+1$ End$ Writeln(k)$ End. P. S. Вместо $ должна быть точка с запятой, но я не нашел ее у себя в телефоне