uses crt;

var n,n0:word;

    mn:array[1..128]of comp;

    pr:array[1..256]of longint;

    c:word;

    i:word;

    min:comp;

function power(a,b:comp):comp;

 var r:comp;

 begin

 r:=1;

 while b>0 do

  begin

  r:=r*a;b:=b-1;

  if r>=9.2e18/a then begin power:=0;exit end;

  end;

 power:=r;

 end;

procedure test(num:byte);

 var r,z:comp;

     k:byte;

 begin

 r:=1;

 for k:=1 to num do

  begin

  z:=power(pr[k],mn[k]-1);

  if z=0 then exit;

  r:=r*z;

  if r>=min then exit;

  end;

 min:=r;

 end;

 

procedure build(ind:byte;nn:word);near;

 var d:word;

 begin

 if nn=1 then

  begin

  test(ind-1);

  exit;

  end;

 for d:=2 to nn do

  begin

  if (ind>1)and(mn[ind-1]<d)then break;

  if nn mod d=0 then

   begin

   mn[ind]:=d;

   build(ind+1,nn div d);

   end;

  end;

 end;

label zzz;

begin

clrscr;

c:=1;

pr[1]:=2;

i:=3;

while c<256 do

 begin

 for n:=1 to c do

  if i mod pr[n]=0 then

   goto zzz;

 inc(c);

 pr[c]:=i;

 zzz:

 inc(i,2);

 end;

min:=9.2e18;

writeln('Введите кол-во делителей');

readln(n);

build(1,n);

if min=9.2e18 then

 writeln('Число с таким количеством делителей больше чем 9.2*10^18 !')

 else

 writeln('Минимальное число, у которого ровно ',n,' делителя: ',min:0:0);

readkey;

end.