Program temp_conversion
real::a,k
read *,a
k=(5./9.)*(temp_f-32.)+273.15
print *,k,'kelvins'
end Program temp_conversion
UHJvZ3JhbSB0ZW1wX2NvbnZlcnNpb24KcmVhbDo6YSxrCnJlYWQgKixhCms9KDUuLzkuKSoodGVtcF9mLTMyLikrMjczLjE1CnByaW50ICosaywna2VsdmlucycKZW5kIFByb2dyYW0gdGVtcF9jb252ZXJzaW9uIA==