17 new

begin
var f : text;
Reset(f, 'D:\17.txt');
var x, y : integer;
var maxsum, count : integer;
read(f, x);
for var i := 1 to 4998 do
  begin
    read(f,y);
    if (x mod 3 = 0) or (y mod 3 = 0) then
    begin
      if x+y>maxsum then
        maxsum := x+y;
      count += 1;
    end;
    x := y;
  end;
print(maxsum, count);
end.