This is my program! Please give me some tests and said what my
program must write, and why... Please help!

Program n1190;
  Var n,sum,x,count,i,min:longint;
      code               :integer;
      s                  :string[255];

Procedure Input_Solve;
  Begin
    ReadLn(n);
    min:=0; count:=0; sum:=0;
    While n>0 Do Begin
      n:=n-1;
      ReadLn(s);
      Delete(s,1,Pos(' ',s));
      If Copy(s,1,1)='0' Then count:=count+1
      Else Begin
        Delete(s,1,2);
        Val(s,x,code);
        If min=0 Then min:=x Else
        If min>x Then min:=x Else
        If x>min Then sum:=10001;
        sum:=sum+(count+1)*x;
        count:=0;
      End;
    End;
    If (count>0) and (sum<10000) and (count*min+sum>=10000) Then
      sum:=10000;
    If (count>0) and (min=0) Then
      sum:=10000;
  End;

Procedure Write_It;
  Begin
    If sum<>10000 Then WriteLn('NO') Else WriteLn('YES');
  End;

Begin
  Input_Solve;
  Write_It;
End.