buzhidao 

搜索，好简单

VAR
   s, n: SHORTINT; i, m: LONGINT;
BEGIN
    READLN(n);
    m := 0;
    REPEAT
         m := m + 1; s := 0;
         FOR i:=1 TO m DO BEGIN
             IF m MOD i = 0 THEN s := s + 1;
         END;
         IF s := n THEN BEGIN WRITELN(m); HALT; END;
    UNTIL m >= 10000000;
END;