Vysvětlení procedury mocnina v TB

Dobrý den
Při programování v TurboPascalu jsem narazil na proceduru mocnina, která má následující kód:

begin
 vysledek:=1;
 while exponent>0 do begin
             while not odd(exponent) do begin
                                      zaklad:=Sqr(zaklad);
                                      exponent:=exponent div 2
                                                    end;
                vysledek:=vysledek * zaklad;
                exponent:=exponent - 1
                end
end;

Mohl by mi prosím někdo z vás tento kód vysvětlit, co dělá co. Jsem začátečník a zatím se učím základy programování.
Děkuji za odpovědi

účes nutný.. (touchwood)