Напишите программу, которая в последовательности натуральных чисел определяет с??мму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. плиззз срочно дам много баллов

Понятно, начали готовиться к ОГЭ по информатике.// Pascalvar n, i, a,s: intrger;begins:=0;readln(n); //ввод количества чисел// раз мы знаем количество чисел, то используем цикл forfor i:=1 to n do begin  readln(a);  //проверка введенного числа на кратность 6  if a mod 6 =0 then s:=s+a; //увеличим сумму на а, если число кратно 6  end;writeln(s); //вывод суммыend.