program Bevardė6;
var a,b,c:longint;
begin
  WriteLn('Iveskite a');
  Read(a);
  a:=a*a;
  b:=a*a;
  c:=b*b;
  Write(c);
end.