Code pascal (full Accepted):

var nt:array[1..15]of longint=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47);
kq:qword=100000000000000000; n:longint;
procedure dequy(su:qword; an:qword; d:longint);
var i:longint;
begin
   if su>n then exit();
   if su=n then
      if an<kq then kq:=an;
   i:=1;
   while (1=1) do
      begin
         an:=an*nt[d];
         if an>kq then break;
         dequy(su*(i+1),an,d+1);
         i:=i+1;
      end;
end;
begin
   readln(n);
   dequy(1,1,1);
   writeln(kq);
end.

Bạn tham khảo thêm bản gốc C++ của mình:

#include <bits/stdc++.h>
using namespace std;

int n,nt[20]={0,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47};
long long kq=100000000000000000;

void dequy(long long su, long long an, int d){
 if (su>n) return ;
   if (su==n) kq=min(kq,an);
 for (int i=1; ; ++i){
  an*=nt[d];
  if (an>kq) break;
  dequy(su*(i+1),an,d+1);
 }
}

int main()
{
 ios_base::sync_with_stdio(0);
 cin.tie(0); cout.tie(0);
 cin>>n;
 dequy(1,1,1);
 cout<<kq;
}