Var
a:integer;
Begin
Readln(a) ;
If a<=0 then
Write('y=0') end;
If a=1 then
Write('y= ', a) end;
If a>1 then
Write('y= ', sqr(x)) end;
End.
Var
a:integer;
Begin
Readln(a) ;
Begin
If a<=0 then
Write('y=0') end;
Begin
If a=1 then
Write('y= ', a) end;
Begin
If a>1 then
Write('y= ', sqr(x)) end;
End.