#!/usr/bin/perl use strict; use warnings; my $l = <>; $l = int ($l / 2); $l = $l**2; print "$l\n"; exit