program FindNumbers;
vari: Integer;
beginfor i := 1 to 100 dobeginif (i mod 10 = 4) and (i mod 6 = 0) thenwriteln(i);end;end.
program FindNumbers;
var
i: Integer;
begin
for i := 1 to 100 do
begin
if (i mod 10 = 4) and (i mod 6 = 0) then
writeln(i);
end;
end.