Модули

[Claster]

Создать новый модуль предназначенный для использования в качестве самодельной «стандартной» библиотеки, в котором определена функция вычисления произведения n чисел. Вызвать этот модуль из другого проекта.

Вообщем надо сделать так что бы в модуле запрашивалось кол-во чисел для поизведения, а затем ввести числа. К примеру мы задаём что нам надо вычислить произведение 3 чисел, а затем вводим эти числа 2*7*8. Реализовать это как функцию. Я уже сам попробую вставлю в модуль и подключу к программею

ПЛИИИИЗ ПОМОГИТЕ!

[Claster]

вот есть, помогите перевети на Делфи!!!!!

sub pr
{
   print "Input count: ";
   $count = <STDIN>;
   $i = 1;
   while($count){
   print "\nNum: ";
   $tmp = <STDIN>;
   $i *= $tmp;
   $count--;
   }
   return $i
}