program project1;
var
list: array [1..10] of integer;
i, sum: integer;
begin
randomize;
sum := 1;
for i:=1 to 10 do
begin
list[i] := random(5) - 2;
write(list[i], ' ');
end;
writeln();
for i:=1 to 10 do
begin
if list[i] <> 0 then
sum := sum * list[i]
end;
writeln(sum);
end.
cHJvZ3JhbSBwcm9qZWN0MTsKCnZhcgogIGxpc3Q6IGFycmF5IFsxLi4xMF0gb2YgaW50ZWdlcjsKICBpLCBzdW06IGludGVnZXI7CgkKYmVnaW4KcmFuZG9taXplOwpzdW0gOj0gMTsKZm9yIGk6PTEgdG8gMTAgZG8gCmJlZ2luCglsaXN0W2ldIDo9IHJhbmRvbSg1KSAtIDI7Cgl3cml0ZShsaXN0W2ldLCAnICcpOwplbmQ7CndyaXRlbG4oKTsKZm9yIGk6PTEgdG8gMTAgZG8KYmVnaW4KCWlmIGxpc3RbaV0gPD4gMCB0aGVuCgkJc3VtIDo9IHN1bSAqIGxpc3RbaV0KZW5kOwp3cml0ZWxuKHN1bSk7CgoKZW5kLg==