Изменить комнату так, чтобы все n студентов могли жить в ней

uses crt;
var n,a,b,i,ai,bi,aj,bj:longint;
begin
    clrscr;
    read(n,a,b);
    if n * 6 <= a * b then writeln(a*b,' ',a,' ',b)
    else if frac(n * 6 / a) = 0 then writeln(n * 6,' ',a,' ',trunc(n * 6 / a))
    else if frac(n * 6 / b) = 0 then writeln(n * 6,' ',trunc(n * 6 / b),' ',b)
    else
        begin
            ai:=a;
            aj:=a;
            bi:=b;
            bj:=b;
            repeat
                bi:=bi+1;
            until (a * bi > n * 6);
            repeat
                ai:=ai+1;
            until (ai * b > n * 6);
            repeat
                aj:=aj+1;
                bj:=bj+1;
            until (n * 6 <= aj * bj);
            if (ai * b <= a * bi) and (ai * b <= aj * bj) then writeln(ai * b,' ',ai,' ',b)
            else if (a * bi <= ai * b) and (a * bi <= aj * bj) then writeln(a * bi,' ',a,' ',bi)
            else writeln(aj * bj,' ',aj,' ',bj);
        end;
    readln;
end.

var
a,b,n,s,min,a1,b1,rez,r,c,d,i:longint;
begin
min:=maxlongint;
readln(n,a,b);
s:=6*n;
if a*b>=6*n then begin
  r:=a*b;
  a1:=a;
  b1:=b;
  end
        else if (a<=6)or(b<=6)then begin
       r:=s;
       a1:=6;
       b1:=n;
       end
else begin
     if s mod a=0 then c:=s div a else c:=s div a+1;
      for i:=b to c do
         begin
           if s mod i=0 then
              begin
              r:=s;
              a1:=i;
              b1:=s div i;
              break;
               end
            else
              begin
              d:=s div i+1;
              rez:=d*i;
                   if rez<min then begin
                    min:=rez;
                    a1:=d;
                    b1:=i;
                    r:=min;
                    end;
               end;
               end;
               end;
          writeln(r,' ',a1,' ',b1);
          end.