input courbescp13;

beginfig(1);
  cadre((0,0),(10.5,11.5));
  draw millimetrepourcourbe withcolor orange;
  origine((1,1));
  unites(2,1);
  draw axes;
  graduationx(btex 1 etex,1);
  graduationx(btex 1 etex,1);
  legendex(btex $x$ etex);
  legendey(btex Aire du rectangle en cm$^2$ etex);
  draw courbe1(0,4.2,100,8.4*x-2*x*x) withcolor bleu;
endfig;
end