C++ :

#include<bits/stdc++.h>
using namespace std;
int a,b;
int main()
{
	for(int i=6;i<=96;i+=6)
		cout<<i<<endl;
	return 0;
}

Pascal :

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