begin
// если нужно считать массив, то удали эту строку, кроме кода var a := //ReadArrInteger(200);
var p := 1;
for var i := 0 to a.Length -1 do
p *= a[i];
end;
println(p);
end.
