đây ạ

  uses crt;
var k1,i,j,k,n,m,s,ii,jj,tg:longint;
a,b:array[1..10000000] of longint;
begin
readln(n,k,m);     tg:=k;
a[1]:=1;
a[2]:=1;
i:=2;
j:=1; s:=1;
repeat
inc(k1);
a[1]:=k1;  dec(k);
a[2]:=k1;
for i:=3 to n do
for j:=1 to i-1 do
a[i]:=a[i]+a[j];
b[1]:=k1;
b[2]:=k1;
for ii:=3 to n do
for jj:=1 to ii-1 do
b[ii]:=b[ii]+b[jj];
until k=0;
if tg mod 2=0 then write(b[m]) else write(a[m]);
readln
end.