Exercice 2

procedure drotD(var a: Arbre);
 begin
  rotG(a^.filsG);
  rotD(a);
 end;
procedure drotG(var a: Arbre);
 begin
  rotD(a^.filsD);
  rotG(a);
 end;