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

Question

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

Answer 1

Var i,col,sum,c:integer;
begin
write('введите количество символов ');
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.