a = int(InputBox(""))
if a mod 50 <=0 then
print "妳的行李重量是" & a & "Kg,所需運費為" & 1.5 * csng(a)
else
print "妳的行李重量是" & a & "Kg,所需運費為" & 1.5 * 50 + 2.5 * csng(a mod 50)
End if
End Sub