Program BT;
Uses crt;
Var L:Longint;
Procedure Nhap(Var n:Longint);
begin
     Write('Vui long nhap N: ');
     Readln(n);
end;
Procedure Search(n:Longint);
Var a,b,c,Max:Longint;done:boolean;
begin
     a:=1;b:=1;c:=0;
     While True do {Tim a*b*c=N}
     begin
          c:=c+1;
          if c=N then
             begin
                  b:=b+1;
                  c:=1
             end;
          if b=N then
             begin
                  a:=a+1;
                  b:=1
             end;
          if a*b*c=N then break;
     end;
     Max:=a+2*b+3*c;
     Writeln('Cac cap a,b,c: ',a,b:2,c:2); {Cai nay minh de test thu thoi nhe!}
     If a div b div c<>n then {Kiem tra xem a,b,c co phai dang N:1:1(dang N:1:1 la dang cua so nguyen
to) vi neu de N:1:1 se bi lap vo han}
     Repeat
     While True do
     begin
          c:=c+1;
          if c=N then
             begin
                  b:=b+1;
                  c:=1
             end;
          if b=N then
             begin
                  a:=a+1;
                  b:=1
             end;
          if a*b*c=N then break;
     end;
     If a+2*b+3*c>Max then Max:=a+2*b+3*c;{Tim a+2b+3c lon nhat nhung vi a+2b+3c kieu gi cung
se la N:1:1 thoi vi N+2.1+3.1 la lon nhat}
     Writeln('Cac cap a,b,c: ',a,b:2,c:2);
     Until a=N;
     Writeln('a.b.c=N va a+2b+3c co tong lon nhat la: ',a,b:2,c:2); {Cai nay minh de test thu thoi nhe!}
end;
begin
     {Minh cung thuoc dang ngu nen viet co the bi sai va dai dong mong moi nguoi thong cam
     neu sai binh luan de minh sua voi a!}
     clrscr;
     Nhap(L);
     Search(L);
     Readln;
end.