Program Riem01;
{Uses Crt;}
Const  precisao = 1000; {numero de divisoes do intervalo}
Var  contador                : Integer; 
   deltax, soma, inicio, fim : Real;
Function f(x : Real) : Real;
Begin
     f := exp(-x*x);
End;
Begin
     {ClrScr;} soma := 0; inicio := 0; fim := 1;
     deltax := (fim - inicio)/precisao;
     While inicio < fim Do
     Begin
          soma := soma + f(inicio);
          inicio := inicio + deltax;
          WriteLn('S = ',soma*deltax:9:4);
     End;
     soma := soma*deltax;
     WriteLn('O valor da integral aproximada e: ',soma:9:4);
     ReadLn;
     {ClrScr};
End.