input geometriesyr;
figure(0,0,6u,6u);
pair A,B,C,D;
A=u*(1,1);
B=u*(4,1);
D=u*(1,5);
C=u*(5,2);
draw A--B--C--D--cycle;
draw D--B;
draw A--C dashed evenly;
draw codeperp(D,A,B,5);
draw codeperp(D,A,C,5);
nomme.llft(A);
nomme.lrt(B);
nomme.rt(C);
nomme.top(D);
fin;
end