せっかくなのでVBScript版をおいておきます
拡張子vbsの適当な名前で保存して実行してください

ktime=inputbox("ktime?")
if ktime >= 10 then
msgbox "actualTime = Infinite"
else
msgbox "actualTime =" & -15*(log(10-ktime)-log(10))
end if