Program someprogramname;
Var n, a: Integer;
Begin
    ReadLn(n);
    a := 1;
    var arr: array[1..n] of integer;
    for i := 1 to n do read(arr[i]);
    for i := 1 to n do a := a * arr[i];
    WriteLn(a);
End.