data Charity(drop=Qtr);
   set prog2.Donate;
   array Contrib{4} Qtr1 Qtr2 Qtr3 Qtr4;
   do Qtr=1 to 4;
      Contrib{Qtr}=Contrib{Qtr}*1.25;
   end;
run;

proc print data=Charity noobs;
   title 'Contributions after 25 percent supplement';
run;