program chi_so_i;

uses crt;

var A:array[1..1000] of integer;

      n,i,s:integer;

begin

        clrscr;

        write('Nhap so luong phan tu cua day: ');  readln(n);

        for i:=1 to n do

                begin

                        write('So thu ',i,': ');  readln(A[i]);

                end;

        S:=0;

        for i:=1 to n do

                begin

                        S:=S+A[i];

                        if S>100 then break;

                end;

        if S<=100 then write('Tong cua ca day chua lon hon 100')

                else write('Chi so i nho nhat la: ',i);

        readln;

end.

Program d ;

Uses crt ;

Var i,S : byte ;

Begin 

Clrscr ;

S := 0 ;

For i := 1 to 100 do

begin 

S := S + i ;

If S > 100 Then Break 

End;

Writeln(i,' la so nho nhat ');

Readln

End.

xong r