#!/usr/bin/env perl use strict; use warnings; my ($n, $k) = split/ /,<>; print 50 * $n + int(50 * $n / (0.8 + 0.2 * $k))