#!/usr/bin/perl

use strict;
use warnings;

my $l = <>;
$l = int ($l / 2);
my $ans = 0;
for(my $i = 0; $i < $l; $i++) {
	$ans += $i;
}
$ans *= 2;
$ans += $l;
print "$ans\n";

exit;