Var x, y, n: integer; begin readln(x); readln(y); n := 133; if (n > 74) then write(x + (n - 75)*y) else write(n*y); writeln(' руб.'); end.