data one;
   input trt @;
   do subj=1 to 4;
      input bpredux @;
      output;
   end;
cards;
1 27 26 21 26
2 19 13 15 16
3 15 10 10 11
4 22 15 21 18
5 20 18 17 16
;
run;

proc glm data=one;
   class trt;
   model bpredux=trt;
   means trt;
run;