NSD dddArial x tot de macht y}hulp:=1-} zolang y>0-i}/ WHILE-dummy-A} hulp:=hulp*xAU}Cy:=y-1Ui}Wÿ macht:=hulpi}}kÿ