var a:array of integer;
N,i:integer;
p:biginteger;
BEGIN
readln(N);
SetLength(a,N);
p:=1;
for i:=0 to (N-1) do begin
read(a[i]);
p:=p*a[i];
end;
writeln(p);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:array of integer;
N,i:integer;
p:biginteger;
BEGIN
readln(N);
SetLength(a,N);
p:=1;
for i:=0 to (N-1) do begin
read(a[i]);
p:=p*a[i];
end;
writeln(p);
end.