Количество вводимы чисел водится с клавиатуры. Найти произведение чисел, которые вводятся в цикле. Записать программу.​

ВВОДИМ ЧИСЛА ЧЕРЕЗ  ПРОБЕЛ ИЛИ ENTER

program z1v1;

var s,i,n,b:integer;

begin;

b:=0;

writeln('введите количество чисел');

readln(n);

writeln('введите ' ,n, ' чисел');

for i:=1 to n do

begin

read(b);

s:=s+b;

b:=0;

end;

writeln('произведение чисел равно ', s);

end.