program n41;
  var i, nsum : integer;
begin
  for i:=100 to 999 do
  begin
    nsum := (i div 100) + ((i div 10) mod 10) + (i mod 10);
    if (nsum mod 7 = 0) and (i mod 7 = 0) then
      writeln(i);
  end;
end.