#!/usr/local/bin/perl

$value = <STDIN>;
$value *= 100;
$value = int ($value + 0.5);
$value = sprintf ("%.2f", $value / 100);
print ("$value\n");
