##
var
  x, k, i, p, s: integer;
  for i := 87921 to 88187 do
  begin
    x := i;
    s := 0; p := 1;
    while x > 0 do
    begin
      p *= (x mod 10);
      s += (x mod 10);
      x := x div 10; end;
    if (s mod 14 = 0) and (p mod 18 = 0) and (p <> 0) then
      println(s, p);
  end