uses wincrt;
var i,n:integer;
begin
i:=1;
while i<=(3*2*7) do
begin
i:=i+1;
if (i mod 2 = 0) and (i mod 3 = 0) and (i mod 7 = 0) then
writeln('so nho nhat la : ',i);
end;
end.
-Phan Bảo Duy-