Mine

	n,aux,aux2 = integer
	READ(n)
	aux2= 1
	For i = 1 to n do
		aux2 = aux2 * 2
		If aux2 = n then
			aux = 1
		else
			aux=0
		end of if
   	end of for
	If aux = 0 then 
		Print('O número não é uma potência de dois')
	If aux = 1 then
		Print('O numero e uma potencia de dois')
end