III/11

program III;
var
i, n, sign, sum:integer;
begin
// заменим задачу на вычислить сумму ряда:
// 1 + (-2) + 3 + (-4) + 5 + (-6)...
ReadLN(n);
sign:= 1;//знак перед числом в ряде
sum:= 0;//переменная для хранения суммы
    for i:= 1 to n do begin
        sum += i * sign;//добавляем число в сумму
        sign := -sign;//меняем знак на противоположный
    end;
WriteLN(sum);
end.