DATA prices (drop= i j sum);
        infile 'c:\temp\light.txt';
        array price(10);
        input price1-price10;
        do i=1 to 9;  /*i is the variable that we run up to*/
                do j=10 to i+1 by -1;
                        if price(j)>price(j-1) then do;
                                temp=price(j);
                                price(j)=price(j-1);
                                price(j-1)=temp;
                        end;
                end;
        end;

        lamps=1;
        sum=0;
        do while (sum<5000 and lamps<10);
                lamps=lamps+1;
                sum=sum+price(lamps);
        end;
        lamps=lamps-1;


proc print;

run;