Var x, p: integer;

Begin

q:=0;

Readln(x);

q:=sqr(x);

Writeln(q)

End.