车站解题程序

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.