var a,n,m,x,i,ans,b:longint;//ans是车上人数
f:array[1..100] of longint;//f其实是斐波那契数列begin
f[1]:=1;//前两个数的值
f[2]:=1;
for i:=3 to 23 do//把全部数算出来
f[i]:=f[i-1]+f[i-2];
readln(a,n,m,x);//输入
b:=(m-(f[n-3]+1)*a) div (f[n-2]-1);
ans:=(a*(f[x-2]+1))+(b*(f[x-1]-1));writeln(ans);//输出
end.