Задача(Вычисление произведения элементов массива) Опции

[Depression period]

Помогите пожалуйста с задачей.....
Решить:
1) С использованием подпрограммы-функции
2)С использованием подпрограммы-процедуры


Исходные данные вводятся с клавиатуры и с использованием генератора случайных чисел.Выбор способа получения исходных данных осуществляется с использованием меню после запуска программы на выполнение.

Задача(Вычисление произведения элементов массива) :

Заданы массивы а={A1 , ... , An} , b={B1 , ... , Bm} и числа n и m.
Определить

n
П Ai , при А1>B1;
i=1

m
П Bi ,при A1<B1;
i=1

k
П (Ai+Bi) , при A1=B1 и k=min{n,m}.
i=1


(это все что написано выше система, т.е. C={и три строчки,которые вы видите выше)................
Помогите, пожалуйста. Заранее спасибо!!!!!

[klem4]

1) Меняешь function на procedure
2) Добавляешь в параметры передаваемые процедуре var переменную в которую будешь записывать результатб который возвращала бы функция

пример

function Max(a,b : integer) : integer;
begin
   Max := a;
   if b > Max then Max := b;
end;

// то же самое процедурой

procedure Max(a,b : integer; var M : integter);
begin
     M := a;
     if b > M then M := b;
end;