program main
  
  implicit none
  integer :: intr 
  real    :: realr

  read( *,* ) intr
  realr = real( intr )

  if ( intr < 0 .or. intr > 100 ) then 
    print *, "Goodby"
    stop
  end if
  
  print *, int( realr**2e0 ) 
  
end program main

