#!/usr/bin/perl

use strict;
use warnings;

my ($d, $p) = split / /, <>;

my $ans = $d * ($p / 100);
$ans = int $ans;
$ans += $d;

print "$ans\n";

exit;