Для N целых чисел определить сумму и количество положительных чисел, которые делятся на 6 без остатка

program divide;
 
var
  a: array [1..100] of integer;
  i, n, t, e, err: integer;
 
begin
  readln(i);
  if (i <= 100) and (i>0) then
  begin
    err := 0; t := 0; e := 0;
    for n := 1 to i do 
    begin
      read(a[n]); if (a[n] > 10000) then inc(err); end;
    if (err = 0) then 
    begin
      for n := 1 to i do
      begin
        if (a[n] mod 6 = 0) and (a[n]>0) then
        begin
          e := e + a[n];
          inc(t);
        end;        
      end;
      writeln(t, ' ', e);
    end;
  end;
end.

const
  n = 20;
var
  arr: array[1..n] of integer;
  Summa, Count: integer;
  i: byte;
begin
  writeln('Введите массив из ', n, ' элементов: ');
  for i:=1 to n do
  begin
    read(arr[i]);
    if (arr[i] > 0) and (arr[i] mod 6 = 0) then
    begin
      inc(Summa, arr[i]);
      inc(Count);
    end;
  end;
  writeln;
  writeln('Сумма таких чисел: ', Summa);
  writeln('Кол-во: ', Count);
end.

program divide;
 
var
  a: array [1..100] of integer;
  i, n, t, e, err: integer;
 
begin
  readln(n);
  if (n <= 100) and (n > 0) then
  begin
    err:=0;
    for i := 1 to n do
    begin
      read(a[i]); if (a[i]>10000) then inc(err);
      if (a[i] > 0) and (a[i] mod 6 = 0) then
      begin
        e := e + a[i];
        inc(t);
      end;
    end;
    if (err=0) then
    writeln(t, ' ', e);    
  end;
end.

program divide;
 
var
  a: array [1..100] of integer;
  i, n, t, err: integer;
  e: longint;
begin
  readln(n);
  if (n <= 100) and (n > 0) then
  begin
    err:=0;
    for i := 1 to n do
    begin
      read(a[i]); if (a[i]>10000) then inc(err);
      if (a[i] > 0) and (a[i] mod 6 = 0) then
      begin
        e := e + a[i];
        inc(t);
      end;
    end;
    if (err=0) then
    writeln(t, ' ', e);    
  end;
end.