var c,i:integer;
begin
c:=0;
i:=1;
while i<=28 do begin
if i mod 2 = 1 then c:=c+i else c:=c-i;
i:=i+1;
end;
writeln(c);
end.
var c,i:integer;
begin
c:=0;
i:=1;
while i<=28 do begin
if i mod 2 = 1 then c:=c+i else c:=c-i;
i:=i+1;
end;
writeln(c);
end.