program product;
var
i, x, p: integer;
begin
p := 1;
for i := 1 to 6 do
Read(x);
if x <> 0 then
p := p * x;
end;
Writeln(p);
end.
Объяснение:
program product;
var
i, x, p: integer;
begin
p := 1;
for i := 1 to 6 do
begin
Read(x);
if x <> 0 then
p := p * x;
end;
Writeln(p);
end.
Объяснение: