data a;
do group="1","2","3";
    do response=1 to 5
            input f@@;
            output;
    end;
        cards;
2         2         1         20         5
1         7         5         10         7
11         9         1         4         5
;
run;
ods html;
proc freq data=a;
order=data;
tables group*response;
exact jt;
weight f;
run;
ods html close;