var x,y:real; i:integer;

Begin

 x := 1;

 while(x < 50) do Begin

   read(y);

   x := x * y;

   writeln(' Произведение = ', x);

   inc(i);

 End;

 write('Введено ',i,' чисел');

End.