PascalABC.NET 3.2:
var
a, b: real;
begin
readln(a, b);
write(<u>(a + b)/2 + (a + b)</u>)
end.
<em>
Пример ввода:</em>
3 7
<em>Пример вывода:</em>
15
999/2 = 498 +1
499/2 = 249 + 1
249/2 = 124 +1
124/2 = 62 + 0
62/2 = 31+ 0
31/2 = 15+1
15/2 = 7+1
7/2 = 3 + 1
3/2 = 1 + 1
999 = <span>1111100111
</span><span>10985 = </span>10101011101001