!!!**********************************************************************
program main
!!!**********************************************************************  

  integer   :: r, a
  ! real      ::
  ! character ::
  
!!!----------------------------------------------------------------------

  read ( *, * ) r
  a =  3*r*r  
  write ( unit = *, fmt = '(I0)' ) a
  
!!!**********************************************************************  
end program main
!!!**********************************************************************