Функция нахождения произведения чисел

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

function pr:integer;
var n,i,b:integer;
begin
writeln('vvedite n: ');
readln(n);
i:=1;
while n > 0  do begin
write('Num: ');
readln(b);
i:=i*b;
n := n-1;
end;
result := i;
end;

автор: Vourhey