use strict; use warnings; my $d = <>; $d = int $d/2; my $res = 0; for(my $i = 1; $i <$d; $i++) { if($res < $i * ($d - $i)) { $res = $i * ($d - $i); } } print "$res\n"; exit;