->

A, B : Float = 0 ..

Ask 'Input triangle side 1: ' A
Ask 'Input triangle side 2: ' B

Say 'Hypotenuse = ' H
' H <- (Hypotenuse A B) # '# ### ###.##'

/

Hypotenuse ->
Arg A, B : Float

Sqrt (A ^ 2 + B ^ 2)

/