var one : int
var count : int := 2
var sum : int := 0
open : one, "Data4.txt", get
var storage, items : array 1 .. 5 of int
var cap : flexible array 1 .. 1 of int

%Getting the variables
for s : 1 .. 5
    get : one, storage (s), items (s)

    %Calculating the capacities
    for x : 1 .. items (s)
        get : one, cap (x)
        sum += cap (x)
        if x not= items (s) then
            new cap, x + 1
        end if
    end for

    %Processing for the greatest possible capacity in the loops
    if sum > storage (s) then
        sum := 0
        loop
            for ss : count .. items (s)
                sum += cap (ss)
            end for
            count += 1
            exit when count > items (s)
        end loop
    end if

    %Freeing the variables in the end and making the sum 0
    free cap
    put ""
    sum := 0
    count := 2
    new cap, 1
end for