var
i : integer;
begin
for i:= 100 to 999 do
if (i mod 2 = 0) and (i mod 3 = 0) then writeln(i); {Если остаток от деления на 2 и на 3 равен 0, то печатаем это число}
end.
var
i : integer;
begin
for i:= 100 to 999 do
if (i mod 2 = 0) and (i mod 3 = 0) then writeln(i); {Если остаток от деления на 2 и на 3 равен 0, то печатаем это число}
end.