#!/usr/bin/env perl

use strict;
use warnings;

my ($n, $k) = split/ /,<>;
print 50 * $n + int(50 * $n / (0.8 + 0.2 * $k))