pascalis

program Zirniai;
const
    Cmax = 100;
    Cduom = 'Z1.txt';
    Crez = 'Z1rez.txt';
type
    masyvas = array[1..Cmax] of integer;
var
    n1,                                   // 1kg zirniu kiekis
    n2,                                   // 2kg zirniu kiekis
    n,                                    // pirkeju skaicius
    kg1, kg2,                             // kiek parduoda 1 ir 2 kg zirniu
    pirkviena,                            // kiek nusipirko bent viena
    paskutinis : integer;                 // kiek nusipirko paskutinis
    pirk : masyvas;                       // pirkeju pageidavimai
{------------------------------------------------------------------------------}
procedure Skaityti;
var i : integer;
    FD : text;
begin
    Assign(FD, Cduom);
    Reset(FD);
    Read(FD, n1);
    Read(FD, n2);
    Read(FD, n);
    for i :=1 to n do
        Read(FD, pirk[i]);
    Close(FD);
end;

procedure Skaiciavimas;
var i, vkg, dkg, suma, kg,
     visas, perka  : integer;
begin
    kg1 := 0; kg2 := 0; pirkviena := 0;
    suma := n1 + (n2 * 2);

    for i := 1 to n do visas := visas + pirk[i];

    if(suma <= visas)
        then
            begin
                kg1 := n1;
                kg2 := n2;
                pirkviena := 1;
            end
         else
            for i := 1 to n do
            begin
                if(kg1 +(pirk[i] mod 2)) <= n1 then kg1 := kg1 + pirk[i] mod 2;
                if(kg2 +(pirk[i] div 2)) <= n2 then kg2 := kg2 + pirk[i] div 2;
            end;

    {for i := 1 to n do
    begin
        if(suma > kg)
            then
                begin
                    vkg := pirk[i] mod 2;
                    lieka1 := lieka1 - vkg;
                    if lieka1 >= 0 then
                        kg1 := kg1 + 1;
                 writeln(lieka1);
                 readln;

                    dkg := pirk[i] div 2;
                    lieka2 := lieka2 - 1;
                    if lieka2 >= 0 then
                        kg2 := kg2 + 1;

                    pirkviena := pirkviena + 1;
                    kg := kg + kg1 + kg2;
                end;
    end;}
    visas := kg1 + kg2 * 2;
    for i := 1 to n do
    begin
        suma := suma - pirk[i];
        perka := perka + pirk[i];
        if(suma > 0) or (perka < visas) then pirkviena := pirkviena + 1;
        if visas - perka > 0 then paskutinis := visas - perka;
    end;
end;

procedure Irasymas;
var FR : text;
begin
    Assign(FR, Crez);
    Rewrite(FR);
    WriteLn(FR, kg1, ' ', kg2);
    WriteLn(FR, pirkviena);
    WriteLn(FR, paskutinis);
    Close(FR);
end;

{------------------------------------------------------------------------------}
begin
    Skaityti;
    Skaiciavimas;
    Irasymas;
end.