Program Zadacha;
Var X,Y:integer;
Begin			
	Readln(x);
	X:=X*X;
	Y:=1-X;
              X:=X*X;
	X:=5*X;
	Y:=Y+X;
              Writeln(Y);
End.