uses crt;
var f,d:text; n,i,tich:longint;
a:array[1..1000000]of longint;
begin
clrscr;
assign(d,'DULIEU.INP');reset(d);
assign(f,'DULIEU.OUT');rewrite(f);
readln(d,n);
for i:=1 to n do read(d,a[i]);
tich:=1;
for i:=1 to n do tich:=tich*a[i];
writeln(f,tich);
close(d);
close(f);
end.