Co dělá co.

Čo Ti nie je jasné ? celý kód, alebo nevieš čo robia matematické operácie ako odd, sqr, div, *, -, respektíve nerozumieš napr.

while exponent > 0 do begin

- znamená, že pokiaľ je premenná exponent väčšie ako nula vykonaj...

Ťažko niečo vysvetľovať, keď nevieme čo nevieš Základy programovania si nájdi v učebnici alebo na webe...