Il valore di ritorno nn deve essere uno dei valori immessi. Quindi c'è bisogno di un nuovo dato che chiamo 'comodo':

codice:
function powto (base,esp:integer) : integer ;

var temp,comodo:integer ;

begin

comodo:=base ;

for temp:=1 to esp do

begin

esp:=esp+1 ;

comodo:=comodo*base ;

end

powto:=comodo ;

end ;
Dovrebbe funzionare