var
 a:byte{или то что тебе надо};
begin
read(a);
writeln(6*sqr(a));
end.

var
 a, b, c: real;
begin
read(a, b, c);
if a>0 then a:=sqr(a);
if b>0 then b:=sqr(b);
if c>0 then c:=sqr(c);
writeln(a, b, c);

var
 n:longint;
 m, sum, i:byte;
begin
read(n, m);
i:=0;
while i<m do begin
  i:=i+1;
  sum:=sum*10+n mod 10;
  n:=n div 10;
end;
writeln(sum);
end.

var
 stroka:string;
 i, max, tmp:integer;
begin
read(stroka);
max:=0;
tmp:=0;
for i:=1 to length(stroka)do begin
 if  stroka[i]='a' then tmp:=tmp+1 else begin
   if tmp>max then max:=tmp;
   tmp:=0;
 end;
end;
writeln(max);
end.

var
 a, b, c:integer;
begin
read(a,b,c);
if (a>b)and(b>c)then begin a:=2*a; b:=2*b; c:=2*c; end else begin 
a:=abs(a);
b:=abs(b);
c:=abs(c);
end;
writeln(a,' ',b,' ',c);

var
 m, n, i:integer;
 sum:longint;
begin
sum:=0;
for i:=m to n do begin
sum:=sum+sqr(i);
end; 
writeln(sum);
end.

var
 stroka, otvet:string;
 i:integer;
 res:boolean;
begin
res:=false;
read(stroka);
for i:=1 to length(stroka) do begin
   if stroka[i]=':' then break;
end;
i:=i+1;
while res=false do begin
otvet:=otvet+stroka[i];
i:=i+1;
if stroka[i]='i' then res:=true;
end;
writeln(otvet);
end.