#!/usr/bin/perl

$f=<STDIN>;
chop $f;

printf("%.2f\n",$f);