Viết chương trình pascal

Viết chương trình pascal
----- Nội dung dịch tự động từ ảnh -----
Nhân dịp Tết, ba bé Bo chuẩn bị N túi lì xì cho bé Bo. Trong túi thứ i có số tiền là ai và
một số nguyên bị (bị≥ 0). Nếu bị> 0 thì bé Bo được phép chọn thêm bị túi lì xì khác. Việc
chọn thêm này là tích lũy. Đầu tiên, bé Bo chọn một túi bất kỳ, sau đó giả sử bé Bo đang có
tổng số tiền là A và số túi được phép chọn thêm là B (B > 0), nếu bé Bo chọn thêm túi thứ 1 thì
tổng số tiền là A + ai và tổng số túi được chọn thêm là B -1 + bị . Cứ như vậy cho đến khi
mmm m
www
mmmmmm
không được phép chọn thêm (B = 0) hoặc đã chọn hết N túi. Ban hãy giúp bé Bo xác định thứ
tư chọn túi sao cho tổng số tiền bé có được là lớn nhất nhé.
- Dữ liệu vào: cho trong tệp LIXI.INP
+ Dòng đầu tiên là số nguyên N(1 + Trong N dòng tiếp theo, dòng thứ i gồm 2 số nguyên ai và bị cách nhau một khoảng trắng (1
≤ai≤ 100, 0≤ bi ≤ 100).
- Dữ liệu ra: ghi ra tệp LIXI.OUT
- LàĐố nguyên xác định số tiền nhiều nhất mà bé Bo có được.
LIXI.INP
LIXI.OUT
5
00
20
20
30
51
8