Добрый день, помогите вот с такой проблемой
Разработать алгоритм и программу для решения поставленной задачи. Предусмотреть ввод всех необходимых величин. Расчет элементов массива оформить в виде подпрограммы-функции. Вычисление заданной величины для массива оформить в виде подпрограммы-процедуры. Вывести на экран полученный массив и искомую величину. Ввод данных и вывод результатов сопроводить текстом.

Формула для расчета элементов массива: ai= 2i

Диапазон изменения: 0 < i <10

Величина для вычисления: сумма элементов массива
используя вот эту формулу: yx=exln(y)
Вот по этому примеру:
Код pascal:
Рrogram Primer2;
Uses CRT;
Type Mymassiv=Array [1..10] of Real;
Var I: Integer;
A: Mymassiv;
Function Mas(M: Integer): Real;
Begin
Mas:=Exp(M*Ln(2))/(M-5);
End;
Procedure Proizvedenie(Var X: Mymassiv);
Var I: Integer;
P: Real;
Begin
P:=1;
For I:=1 To 10 Do
If Frac(X[I])<>0 Then P:=P*X[I];
Writeln('Произведение=', Р);
End;
Begin
Clrscr;
For I:=1 to 10 do
Begin
A[I]:=Mas(I+5);
Write (A[I]:6:2,' ');
End;
Writeln;
Proizvedenie(A);
End.
Заранее спасибо!