codice:
function powto(base,esp:integer) : integer;
begin
    temp:=0;
    for temp:=1 to esp do
    begin
    if esp=0 then
    returned:=1
    else
    returned:=returned * base;
    end;
    writeln(returned);
    powto:=returned;
end;
ho qualche problema nel definire la funzione e specificare il valore di ritorno
purtroppo il pascal non l'ho mai studiato seriamente e faccio programmi da autodidatta

ciao