var a:array [1..100] of integer;
var n,i,k :integer;
begin
k:=1;
for i:=1 to 10 do begin
read (a[i]);
if a[i]<10 then k:=a[i]*k;
end;
write(k);
end.
var a:array [1..100] of integer;
var n,i,k :integer;
begin
k:=1;
for i:=1 to 10 do begin
read (a[i]);
if a[i]<10 then k:=a[i]*k;
end;
write(k);
end.