      PROGRAM circle
      IMPLICIT NONE
      INTEGER(8) :: r
      INTEGER(8) :: ans
      
      read*,r
      
      ans = r*r
      
      
      print*,ans
      
      
      
      
      END PROGRAM