Procedure GoGo(a : Integer; s : String); Begin If a<=24 then If a=24 then Begin Inc(N); Writeln(s); end else Begin GoGo(a+2,s+'+2'); GoGo(a*2,'('+s+')*2'); end; end;
Function DecToN(a : Longint; Raz : Byte) : String; Begin If a>Raz-1 then DecToN:=DecToN(a div Raz,Raz)+Rn[(a mod Raz)+1] else DecToN:=Rn[a+1]; end;
Function NToDec(a : String; Raz : Byte) : Longint; Begin If Length(a)>0 then NToDec:=Pos(a[Length(a)],Rn)-1+Raz*NToDec(Copy(a,1,Length(a)-1),Raz) else NToDec:=0; end;
var a:integer;
begin
readln(a);
if (a<0) then a:=a*(-1) else a:=0;
writeln(a);
end.