input geometriesyr16; figure(0,0,5u,5u); pair O,H,A; A=u*(1,1); H-A=u*(3,0); O-H=u*(0,2); trace triangle(O,A,H); trace codeperp(O,H,A,5); nomme.top(O); nomme.lrt(H); nomme.bot(A); fin; end