C++ :

#include <iostream>
using namespace std;
int main() {
	for(int i=1; i<=100; i++) {
		int hun=0,ten=0;
		hun=i/10;
		ten=i%10;
		if(hun==3&&i%3!=0||ten==3&&i%3!=0) {
			cout<<i<<endl;
		}

	}
	return 0;
}

Pascal :

var a:integer;
begin
  for a:=1 to 100 do
  if ((a mod 10=3)or(a div 10=3))and(a mod 3<>0) then writeln(a);
end.