Составить программу нахождения произведения 20 введенных пользователем чисел.

Выражено через массивы

var a,b,i:integer;beginb:=1;for i:=1 to 6 do beginread(a);b:=b*a;end;write(b);end.

Упс

var a,b,i:integer;beginb:=1;for i:=1 to 20 do beginread(a);b:=b*a;end;write(b);end.

Если не изучали массивы

var i,m:integer;mass:array[1..20] of integer;beginfor i:=1 to 20 doread(mass[i]);m:=mass[1];for i:=2 to 20 dom:=m*mass[i];writeln(m);end.