input constantes;
input geometriepoint;
beginfig(1);
  z0=u*(1,1.5);label.ulft(btex $A$ etex,z0);
  z1=u*(4,1);label.bot(btex $D$ etex,z1);
  z2=u*(5,1.75);label.rt(btex $C$ etex,z2);
  z3=u*(2,3);label.top(btex $B$ etex,z3);
  draw z0--z1--z2--z3--cycle;
endfig;
end