C++ :

#include <cstdlib>
#include <cstdio>
using namespace std;
bool even(long long);
int main()
{
	long long  n;
	long long c=0;
	long long k;
	scanf("%lld",&k);
	while(k!=1)
	{
		if(even(k)==false)
		{
			long long  a=3*k+1;
			printf("n=%lld\n",a);
            k=a;
		}
		else
		{
			long long a=k/2;
			printf("n=%lld\n",a);
			k=a;
		}
	}
	//system("pause");
	return 0;
}
bool even(long long a)
{
	if(a%2==0)
	    return true;
	else
		return false;
}

Pascal :

var
 n:longint;

 begin

 readln(n);
 repeat
  if n mod 2=0 then n:=n div 2
  else n:=n*3+1;
  writeln('n=',n);
 until n=1;
 end.