Program z1;
Var
a:integer;
Begin
Readln(a) ;
If a<0 then
Write(a*-1) end;
if a>0 then
write(a*-1) End;
End.
Program z1;
Var
a:integer;
Begin
Readln(a) ;
Begin
If a<0 then
Write(a*-1) end;
Begin
if a>0 then
write(a*-1) End;
End.