program ideone;
var 
	x1,x2:integer;
	max: record 
		x1,x2,value: integer;
	end;
begin
	max.value := 0;
	for x1 := 60 downto 0 do
		for x2 := 80 downto 0 do
			if (15*x1 + 10*x2) <= 950 then
				if (40*x1 + 20*x2) > max.value then
				begin
					max.value := 40*x1 + 20*x2;
					max.x1 := x1;
					max.x2 := x2;
				end;
	
	writeln(max.value, ' ', max.x1, ' ', max.x2);
end.