Viết phương trình pascal sử dụng câu lệnh lặp while......do để giải bài trên

viết phương trình pascal sử dụng câu lệnh lặp while......do để giải bài trên
----- Nội dung dịch tự động từ ảnh -----
Ví du: em thưởng 1 xì tết 1 triệu. Ngày đầu tiên em tiêu 10k, cử ngàyv tiếp
theo số tiền em tiêu sẽ gấp đội ngày hôm trc. HỎI sau bao nhiêu ngày số
tiền cần tiêu sẽ ko đủ theo quy luật ở trên