С клавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не привести 10 000. Посчитайте количество введенных чисел и полученное произведение.

var  
 a,b,k:longint; 
begin  
 b:=1; 
 k:=0;  
 while b<10000 do   
 begin    
  read(a);    
  b:=b*a;    
  k:=k+1;   
 end;  
 writeln('Kol:',k);  
 writeln('Number:',b);  
 readln 
end.