program main
  real :: degreesfahrenheit, degreescelsius
  read *, degreesfahrenheit
  degreescelsius = 5*(degreesfahrenheit-32)/9
  print *, degreescelsius
end program main