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

var i,col,sum,c:integer;beginwrite('введите количество символов ');read(col);while (col>100) do begin write('ERROR//введите количество символов '); read(col);end;for i:=1 to col do begin  read(c);  while (c>300) do begin writeln('ERROR'); read(c); end;  if c mod 6 =0 then sum:=sum+c; end; write(sum);end.