var  
  x,y:longint;
begin
  readln(x,y);
  if x>0 then dec(x);
  writeln(x*2.5+y*1.5:0:1);
end.
/**************************************************************
	Problem: 1603
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/