This is my program. I hope you will help to understand why i get WA.
Var k, s: longint;
    i, g, ji: longint;
    z: real;
    gg: boolean;
function ciznpk(nn, kk: longint): real;
var j: longint;
    an: real;
    dis: boolean;
begin
     if nn<kk then begin ciznpk:=0; exit; end;
     if nn = kk then begin ciznpk:=1; exit; end;
     an:=1;
     dis:=false;
     if kk>nn-kk then dis:=true;
     if dis then
     for j:=kk+1 to nn do
         an:=an*j;
     if not dis then
     for j:=nn-kk+1 to nn do
      an:=an*j;
     if not dis then
     for J:=2 to kk do
         an:=an / j;
     if dis then
     for j:=2 to nn - kk do
         an:=an / j;
     ciznpk:=an;
end;
Begin
     z:=0;
     read(k, s);
     for I:=2 to s do
     begin
          g:=(s) div i;
          gg:=false;
          for ji:=i-1 downto 2  do
          if i mod ji = 0 then begin gg:=true; break; end;
          if not gg then
          begin
          z:=z+ciznpk(g,k);
          for ji:=i-1 downto 2 do
          begin
               z:=z-ciznpk(g div ji,k)
          end;
          end;
     end;
     if z>10000 then
     z:=10000;
     write(trunc(z));
End.