var a,b,c,d,e,f,g,km,k1:integer;

begin
  k1:=0;
  km:=1;
  d:=1;
  for a:=1 to 10 do
 begin
b:=random(0,10);
if (b=0) then
begin
  writeln('Число №',km,'=',B);
  writeln('Случайное число = 0, в связи с этим произведение всегда будет равняться нулю');
  d:=d*b;
  inc(k1);
  break;
  end;

writeln('Число №',km,'=',B);
d:=d*b;
inc(k1);
inc(km);
if (d>100) then
begin
  writeln('Произведение превысило значение 100');
  break;
  end;
  end;
  writeln('Результат=',d);
  writeln('Чисел перемножено:',k1);
end.