integer

program collatz
implicit none
integer :: numero 27, resultado, par 
   print *, 'dame numero entero'
   read *, numero 27
   print *, 'vamos a ver si es maravilloso el numero', numero 27
   resultado=numero 27 
   do
   par= mod(resultado, 2)
   if (par==0) resultado=resultado/2
   if (par>0) resultado=3 *resultado +1 
   print *, 'resultado'
   if(resultado==1)then
   print *, 'el numero es maravilloso'
   exit
   end if
   end do
   end program collatz