var t1, v, c, t, a, b, d, l, l1, l2, m, M : real
c := 186000
put "Physics!!"
loop
    put "Time Dialation"
    put "You are on a rocket going near the speed of light."
    put "How much time a=has passed for an observer"
    put "Please enter your speed in decimal form(of LightSpeed)i.e V / 186,000)"
    get v
    put "Please enter number of years/days spent on rocket."
    get t1
    a := v ** 2
    b := 1 - a
    d := b ** 0.5
    t := t1 / d
    put " The time elapsed on earth is"
    put t
    put "Here for lenght dialation(means to an observer you look shorter)"
    put "*Remember your still going the same speed as inputed before"
    put "What the lenght of ur ship"
    get l
    l1 := (1 - v) ** 0.5
    l2 := l1 * l
    put "Your length form an observer is"
    put l2
    put "Mass distortion"
    put "What is ur mass(kg)"
    get m
    M := (m * (1 - v ** 2) ** -0.5)
    put "Your mass at the speed of ", v, " will be ", M, "!!"
    delay (1000)
end loop