data Final;
   set prog2.Grade;
   Overall=round(mean(Test1,Test2,Test3,Final,Final));
run;

   /* The assignment statement above
      could be replaced with

      Overall=mean(of Test1-Test3,Final,Final); */

proc print data=Final;
run;