program ELEVAZIONE_A_POTENZA(input,output); (***************************************************************************) function POT(fpa,fpb:integer):real; (* per richiamare la funzione potenza l'utente del programma deve *) (* scrivere : ' POT(A,B) ' dove 'A' e' la base e 'B' e' l'esponente *) var fpc,fpd:integer; begin fpd:=1; for fpc:=1 to fpb do fpd:=fpd*fpa; pot:=fpd end; (***************************************************************************) begin writeln(pot(2,3)) end.