# data[].attributes.headline
Завдання р1§2

# data[].attributes.subject
Завдання р1§2

# data[].attributes.headline
Проста задача

# data[].attributes.subject
Проста задача

# data[].attributes.body
var   n_str:string; n:integer;

begin
readln(n);
str(n,n_str);
writeln(n_str[1],' ',n_str[2]);
end.

# data[].attributes.headline
Сірникова модель

# data[].attributes.subject
Сірникова модель

# data[].attributes.body
uses crt;
var n: longint;

function NCube(n: integer): integer;
var c1,c2,c3,s,h,d1,d2: integer;
begin
c1:=trunc(exp(ln(n)*1.0/3)+0.5);
c2:=trunc(sqrt(n/c1)+0.5);
c3:=trunc(n/(c1*c2));
S:=3*c1*c2*c3+2*(c1*c2+c1*c3+c2*c3)+(c1+c2+c3);
h:=n-c1*c2*c3;
if h<>0 then
begin
d1:=trunc(sqrt(h)+0.5);
if d1*d1>h then
dec(d1);
d2:=trunc(h/d1);
S:=s+(3*d1*d2+2*(d1+d2)+1);
h:=h-(d1*d2);
if h<>0 then
S:=s+(3*h+2);
end;
NCube:=S;
end;

begin
clrscr;
readln(N);
writeln(NCube(N));
readln;
end.