input geometriesyr16
figuremainlevee(0,0,8u,8u);
pair A,B,C,D;
A=u*(2,2);
B-A=u*(5,1);
D=rotation(B,A,90);
C-D=B-A;
trace polygone(A,B,C,D);
trace codeperp(A,B,C,5);
trace codeperp(B,C,D,5);
trace codeperp(C,D,A,5);
trace codeperp(D,A,B,5);
trace Codelongueur(A,B,B,C,C,D,D,A,2);
finmainlevee;
end