my ($yen, $per) = split(/\s/, <STDIN>);
print int($yen+$yen*$per/100)."\n";