Create puissanceWhile.pas