Как на это ответить. 1.Напишите программу, которая в последовательности натуральных чисел  определяет количество чисел, кратных 4. Программа получает на вход  количество чисел в последовательности, а затем сами числа. В  последовательности всегда имеется число, кратное 4. Количество чисел не  превышает 1000. Введённые числа не превышают 30 000. Программа должна  вывести одно число — количество чисел, кратных 4.2. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.

var n, s, k, g: integer; /объявление переменных
begin
s:=0; /начальное значение количества чисел кратных 4
readln(n); /ввод количества чисел в последовательности
for k:=1 to n do /цикл
begin
readln(g); /ввод числа
if (g mod 4=0) then s:=s+1; /проверка условия и нахождение количества
end;
writeln(s); /вывод количества чисел кратных 4
end.