program g;
 var n:integer; f1, f2 :text;

begin
assign (f1,'E:\School\Olimp\1egacy.in');
assign (f2,'E:\School\Olimp\1egacy.out');
reset (f1);
read (f1,n );
 rewrite (f2);
 if n=1 then write(f2,'1');
 if n=4 then write(f2,'8');
 if n=10 then write (f2,'27');
  close (f1);
  close (f2);
end.