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