input geometriesyr16;

figuremainlevee(0,0,6u,6u);
pair I,J,R,H,T,S;
trace triangleqcq(S,T,R);
I=milieu(R,S);
H=projection(R,S,T);
J=projection(I,S,T);
trace segment(R,H);
trace droite(I,J);
trace codeperp(R,H,T,5);
nomme.llft(S);
nomme.lrt(T);
nomme.top(R);
nomme.ulft(I);
nomme.lrt(J);
nomme.bot(H);
finmainlevee;

end