input mp-scratch;

beginfig(1);
  draw NouveauBloc("Pentagone");
endfig;

beginfig(3);
  draw NouveauBloc("Pentagone \opBloc{cote}");
endfig;

beginfig(2);
  draw Bloc("Pentagone");
endfig;

end