напишите программу которая в последовательности натуральных чисел определяет сумму чисел кратных 6.Программа получает на вход количество чисел в последовательности а затем сами числа.В последовательности всегда имеется число кратное 6.Количество чисел не превышает 100.Введенные числа не превышают 300.Программа должна вывести одно число- сумму чисел кратных 6.Решите пожалуйста

Var sum,n,i,a : Integer;Begin  Write('Количество: ');Readln(n);  sum:=0;  For i:=1 to n do  Begin   Readln(a);   If a mod 6 = 0 then sum:=sum+a;  end;  Writeln('Результат: ',sum);end.