{
Lezione numero due (Uloha c. 2 :)
>verzia, ktora nezobrazi vysledok,
>iba pocet krokov...

(C)2k4 AndreK
andrek.wz.cz
}

program prg_2;
{$APPTYPE CONSOLE}

var
    pocsuf: integer;
	i, pockrokov: integer;
    pocgul: integer;
    p: integer;

begin
    {
     algoritmus je v podstate zalozeny na tom,
     ze sa 'neoplati' prenasat jednu gulu ponad
     druhu (nakolko su si ekvivalentne)...

     ale popravde, je velmi jednoduchy a to, ako funguje,
     je vidno na prvy pohlad a staci len trochu popremyslat...

     podmienka je, aby bol rovnaky pocet 'suflikov'
     ako gul...
    }

    pockrokov:=0;
    pocgul:=0;

    read(pocsuf);
    for i:=1 to pocsuf do begin
    	pockrokov:=pockrokov+abs(pocgul);
	    read(p);
        if (p=0) then dec(pocgul);
        if (p>1) then pocgul:=pocgul+(p-1);
    end;

    writeln(pockrokov);
end.