code for diagram

> p2:=plot([[0,21.6],[sqrt(36^2-21.6^2),0]],thickness=3):

> txt:=plots[textplot]({[3,22,`(0,21.6)`],
[sqrt(36^2-21.6^2)-.5,2,`coords?`],[14,14,`36`]},
font=[TIMES,BOLD,12]):

> plots[display]({p2,txt},xtickmarks=[],ytickmarks=[]);