PersonalCorpus 版 (精华区)

155519 04:45:06 6 Mar 2002
Bozhang,HIT,P.R.China 1190 Pascal Accepted 0.02 sec 49K


var
    li,i,j,k,kk,n:integer;
    ch:char;
begin
    readln(n); j:=0; k:=10000; li:=10000; kk:=10000;
    while n>0 do begin
        dec(n);
        read(ch); while ch<>' ' do read(ch);
        read(i);
        if i=0 then begin
            inc(j); readln;
        end else begin
            readln(i);
            k:=k-(j+1)*i;
            kk:=kk-j*li-i;
            j:=0;
            if i>li then begin
                writeln('NO'); halt
            end;
            li:=i;
        end;
    end;
    kk:=kk-j*li;
    if (k<0) or (kk>0) then writeln('NO') else writeln('YES');
end.