6.2

program prog;
var
    arr : array[1..10] of longint;
    i, count, min, max : longint;
begin
    count := 1;
    for i := 1 to 10 do
        read(arr[i]);
    for i := 1 to 10 do
        if (not(arr[i] mod 6 = 0) and (arr[i] div 10 > 0) and not(arr[i] = 100)) then
            count := count * arr[i];
    writeln(count);
end.