Pascal :

var a:longint;
begin
  for a:=1 to 100 do
  if (a mod 10=2) or (a div 10=2) or (a mod 10=3) or (a div 10=3) then writeln(a);
end.