Составить массив и вычислить его сумму

[Кузя21]

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

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

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

Величина для вычисления: сумма элементов массива
используя вот эту формулу: yx=exln(y)
Вот по этому примеру:

Program 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.

Заранее спасибо!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.