data one;
  input A B;
  cards;
9 8
7 7
6 4
5 4
4 3
5 4
6 3
1 2
;

proc print;
run;

data one; set one;
  difference=A-B;
run;

proc print;
run;

proc means data=one mean std stderr clm t probt alpha=0.05;
  var difference;
run;