program FindNumbers;

var
i, num, sum, digit1, digit2, digit3: integer;

begin
for i := 102 to 987 do
begin
digit1 := i div 100;
digit2 := $imod100$ div 10;
digit3 := i mod 10;

sum := digit1 + digit2 + digit3;
if $summod7=0$ and $imod7=0$ then
writeln$i$;

end;
end.