program FindNumbers;vari: integer;beginfor i := 100 to 999 dobeginif (i mod 2 = 0) and (i mod 7 = 0) thenbeginwriteln(i);end;end;end.
program FindNumbers;
var
i: integer;
begin
for i := 100 to 999 do
begin
if (i mod 2 = 0) and (i mod 7 = 0) then
begin
writeln(i);
end;
end;
end.