function wow(n:integer):integer;
var
  res, i, cnt : integer;
begin
  res:=1;
  for i:=2 to n do
    if(n mod i = 0) then begin
      cnt:= 0;
      while (n mod i = 0) do
      begin
        n:=n div i;
        cnt:= cnt+1;
      end;
      res:=res*(cnt+1);
    end;
  wow:=res;
end; 

Berapakah n mininum sehingga wow(n) bernilai 10?
A. 32
B. 512
C. 1000
D. 48
E. 38