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

[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={и три строчки,которые вы видите выше)................
Помогите, пожалуйста. Заранее спасибо!!!!!

[volvo]

а после Reform при нажатии Print должно выводится значение произведения 'p' но оно не выводится

Ха... Молодец. То есть ДО Reform процедура Print должна выводить одно, а ПОСЛЕ - другое? Ну, так ты ж должна была это объяснить... Покажи мне, ГДЕ ты это объясняла выше? Телепатов ждешь? Ну, жди...

Вопросы задавать не научишься - будешь все время получать "некорректные" с твоей точки зрения ответы...

[Depression period]

Ха... Молодец. То есть ДО Reform процедура Print должна выводить одно, а ПОСЛЕ - другое? Ну, так ты ж должна была это объяснить... Покажи мне, ГДЕ ты это объясняла выше? Телепатов ждешь? Ну, жди...

ну я поняла........извини.....Я подумала, что было очевидно: нужно найти 'p' и мы делаем это в Reform, значит после Reform Print должен выводить именно 'p'.........
Так что я должна исправить, чтобы было именно так, а не иначе?.........можешь подсказать?