Процедура и функция

[HECTOR.A.]

Помогите
Создать модуль содержащий процедуру и функцию
ai=lg(100*i)/i!,
1<i<7-сумма элементов массива
Спасибо

[Лубышев]

На каком языке то?

type
  TArray = array of double;

function Func(a: TArray; var Valid: boolean): double;

implementation

function Func(a: TArray; var Valid: boolean): double;
var 
  j: integer;
begin
  Result := 0;
  if Length(a) > 0 then
    begin
      for j := 0 to High(a) do 
        Result := Result + a[j];
      Result := lg(100 * Result) / Result;
      Valid := true;
    end
  else
    Valid := false;
end;

procedure Main; // Основной код программы
var 
  aa: array[0..7] of double;
  ai: double;
  Valid: boolean;
begin
.......

//Где то тут определяются элементы массива
.......

  ai:=Func(aa, Valid);
  if Valid then
    begin
      // успех!
      // дальнейшая работа с переменной ai
    end
  else
    beign
      // провал!
      // окончание работы процедуры
    end;  
end;

[HECTOR.A.]

На паскале