---

var
  a,b,c:longint;
begin
  while not eof do begin
    readln(a);
    b:=(a div 2)div 2;
    c:=b*((a div 2)-c);
    writeln(c);
  end;
  readln;
end.