program NumsInput;

begin
  var n: integer;
  
  Writeln('Введите натуральное число не больше 100');
  
  while True do
    if integer.TryParse(ReadString('n ='), n) 
      and n.InRange(1, 100) then break;
  
  var Sum := 0;
  
  Writeln($'Введите {n} натуральных чисел последовательности');
  
  for var i := 1 to n do
  begin
    while True do
      if integer.TryParse(ReadString($'Введите {i}-e число:'), n) 
        and n.InRange(1,300) then break;
    if n mod 6 = 0 then Sum += n;
  end;
  
  Write($'Cумма чисел кратных 6: Sum = {Sum}')
end.