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

Question

С клавиатуры вводится числа и находится произведение до тех пор пока произведение чисел не превысит 10 000. Посчитайте количество введенных чисел и полученное произведение. ПОМОГИТЕ ПОЖАЛУЙСТА. ОЧЕНЬ СРОЧНОООО!!!

Answer 1

Что-то такое получилось, пиши в комменты если что не так:
var  
 a,b,k:longint; 
begin  
 b:=1; 
 k:=0;  
 while b<10000 do   <br> begin    
  read(a);    
  b:=b*a;    
  k:=k+1;  
 end;  
 writeln('Kol:',k);  
 writeln('Number:',b);  
 readln 
end.