data carsurvey;
   input Rater Age Progressa Remark Jupiter Dynamo;
   datalines;
   1 38 94 98 84 80
   2 49 96 84 80 77
   3 16 64 78 76 73
   4 27 89 73 90 92
   77 61 92 88 77 85
   78 24 87 88 88 91
   79 18 54 50 62 74
   80 62 90 91 90 86
   ;
run;

proc format;
   value agefmt (multilabel notsorted)
        15 - 29 = 'Below 30 years'
        30 - 50 = 'Between 30 and 50'
        51 - high = 'Over 50 years'
        15 - 19 = '15 to 19'
        20 - 25 = '20 to 25'
        25 - 39 = '25 to 39'
        40 - 55 = '40 to 55'
        56 - high = '56 and above';
run;

proc tabulate data=carsurvey format=10.;
   class age / mlf preloadfmt order=data;
   var progressa remark jupiter dynamo;
   table age all, n all='Potential Car Names'*(progressa remark
         jupiter dynamo)*mean;
   title1 "Rating Four Potential Car Names";
   title2 "Rating Scale 0-100 (100 is the highest rating)";
   format age agefmt.;
run;