var
  inputNumber, resultNumber: real;
  i: integer;
begin
  resultNumber := 1;
  
  for i := 1 to 15 do
   begin
    Read(inputNumber);
    resultNumber := resultNumber * inputNumber;
    if resultNumber = 0 then
      break
   end;
 Writeln('Произведение всех чисел равно ', resultNumber);
end.