Program prim_5;
Var x: integer;
Begin;
Readln(x);
if x>=0
then
x:= x-50
else
x:= x+100;
writeln (x);
end.
Program prim_5;
Var x: integer;
Begin;
Readln(x);
if x>=0
then
x:= x-50
else
x:= x+100;
writeln (x);
end.