С клавиатуры вводится числа и находится их произведение до тех пор пока произведение чисел не привести 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.