why my program doesnot work on WA#2????
var a:array [1..10000] of integer;
i,k,s:integer;
begin
k:=0;
s:=1;
for i:=1 to 10 do
readln(a[i]);
for i:=1 to 10 do
s:=s*a[i];
for i:=1 to s do
if s mod i=0 then
k:=k+1;
if (k>0)and (k<10) then writeln(k);
end.

Edited by author 21.03.2010 05:16