function exp10(a:real):real;
Questa funzione calcola l'antilogaritmo in base 10 di A (10 elevato alla A).