Questo è il programma per il calcolo approssimato di e(x) di cui sopra.
codice:
program EsponenzialeApprossimato(input,output);
var  i,n : integer;
      x : real;
function Potenza( x : real): real;
begin
     if i=0
     then Potenza:=1
     else Potenza:=x*Potenza(i-1);

end;{ fine funzione Potenza }

function Fattoriale( i : integer): integer;
begin
     if i=0
     then Fattoriale:=1
     else Fattoriale:=i*Fattoriale(i-1);

end;{ fine funzione Fattoriale }

function Esponenziale( x : real ):real;
var Somma : real;
begin
  Somma:=1;
  for i:=1 to n
           do begin
                   Somma:=Somma+((Potenza(x))/(Fattoriale(i)));
                   readln;
              end;
  Esponenziale:=Somma;
readln;
end;{ fine funzione Esponenziale }
{ Corpo del programma }
begin

  writeln('----------------------------- Dati di ingresso -------------------------------');
  writeln;
  write('Fornire il valore della variabile x : ');
  readln(x);
  writeln;
  write('Fornire il valore della variabile n : ');
  readln(n);
  writeln;
  Esponenziale(x);
  readln;
  writeln('Il valore di e(x) con x pari a ',x,' approssimato al termine di ordine ',n,' e'': ',Esponenziale(x));
  readln;

end.
Dovrebbe essere corretto sia per quel che riguarda la sintassi che per quel che riguarda gli errori a tempo di esecuzione. Grazie a tutti comunque!!!