TI 81 Distance Formula Program

Prgm 4:DISTANCE
:float
:disp "Distance Formula"
:disp "From (A,B) to (C,D)
:disp "A="
:input A
:disp "B="
:input B
:disp "C="
:input C
:disp "D="
:input D
:((C-A)2+(D-B)2)
:disp "Distance is"
:disp ans
:end