clc;
clear;

begining_inventory=3;
ending_inventory=0;
shortage_amount=0;
leadtime=2;
order_amount=8;
m=input('Enter maximum stock level: ');
n=input('Enter review period:');
demand=0;
shortage=0;

for cycle=1:1
    for day=1:5
        leadtime=leadtime-1; %ar
        begining_inventory=ending_inventory;
        if leadtime==-1
            begining_inventory=order_amount+begining_inventory;
        end


        r = randi([10 99],1,1);
        fprintf('%d',r);

        if r<=10
            demand=0;
        elseif r>=11 && r<=35
            demand=1;
        elseif r>=36 && r<=70
            demand=2;
        elseif r>=71 && r<=91
            demand=3;
        elseif r>=92 && r<100
            demand=4;
        end
        fprintf(' %d\n',demand);

        if demand>begining_inventory
            shortage=shortage+(demand-begining_inventory);
            ending_inventory=0;
        else
            endinge_inventory=begining_inventory-demand;
        end

        if day==5
            order_quantity=m-ending_inventory;
            l_random = randi([0 9],1,1);
            if l_random>=1 && l_random<=6
                lead_time=1;
            elseif l_random>=7 && l_random<=9
                lead_time=2;
            elseif l_random==0
                lead_time=3;
            end
        end
    end
end