BCDIV – spoj

const   fi      ='';
        fo      ='';
var     n, k    :int64;
        f       :array[0..25,0..25] of int64;
        i, j    :longint;
        t       :longint;
begin
        fillchar(F, sizeof(f),0);
        f[0,0]:=1;
        for i:=1 to 25 do
                for j:=1 to 25 do
                        f[i,j]:=f[i-1,j-1]+f[i-1,j]*j;
        assign(input,fi);
        reset(input);
        assign(output,fo);
        rewrite(output);
        readln(t);
        for i:=1 to t do
                begin
                        readln(n,k);
                        writeln(f[n,k]);
                end;
        close(input);close(output);
end.

const fi =''; fo =''; var n, k :int64; f :array[0..25,0..25] of int64; i, j :longint; t :longint; begin fillchar(F, sizeof(f),0); f[0,0]:=1; for i:=1 to 25 do for j:=1 to 25 do f[i,j]:=f[i-1,j-1]+f[i-1,j]*j; assign(input,fi); reset(input); assign(output,fo); rewrite(output); readln(t); for i:=1 to t do begin readln(n,k); writeln(f[n,k]); end; close(input);close(output); end.