Пожалуйста помогите с кодом!!! кто знает паскаль или фортран!

Пожалуйста помогите с кодом!!! кто знает паскаль или фортран!
Дана експанента е^x на отрезке от а до б мне надо взять 15 значений на этом отрезке и посчитать среднее , а потом вывести среднее на экран!

  • х -абсцисса, у - ордината на плоскости, где размещена кривая. Они в принципе не целые.
    EXP(x) это функция вычисляющая значение у для х на экспоненциальной кривой .
    Sum это сумма 15-ти значений таких у.
    Можно было бы считать с шагом Step=(b-a)/14
    Но скорее всего надо значения х брать случайные.
    r=random() (или rand - уточните как вызвать)
    даёт значения от 0 до 1, тогда чтобы попасть в диапазон [a;b] надо вычислить
    х= a+ (b-a)* r
    Sum = Sum+ EXP(x)

    do while i= 1 to 15
    if f(i)>0 then
    r=random(1)
    х= a+ (b-a)* r
    Sum = Sum+ EXP(x)
    end if
    end do
    print Sum/15.0