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("%lld*3+1=%lld\n",k,a);
            k=a;
		}
		else
		{
			long long a=k/2;
			printf("%lld/2=%lld\n",k,a);
			k=a;
		}
	}
	//system("pause");
	return 0;
}
bool even(long long a)
{
	if(a%2==0)
	    return true;
	else
		return false;
}

Pascal :

var n,zf:longint;
begin
  readln(n);
  zf:=n;
  while zf<>1 do
    begin
      if n mod 2=0 then begin n:=n div 2; writeln(zf,'/',2,'=',n); zf:=n; end
                   else begin n:=n*3+1; writeln(zf,'*',3,'+',1,'=',n); zf:=n; end;
    end;
end.