Program zadanie1;

var

i:integer;

begin

for i:=100 to 999 do
Begin
if ( i mod 3 = 0 ) and ( i mod 5 = 0 ) and ( i mod 7 = 0 )
then writeln(i);
end;

end.