Trong ngày Tết Trung thu, nhà thiếu nhi đã tổ chức rước đèn trung thu cho các em thiếu thi. Tất cả các em đều hào hứng tham gia các trò chơi của ban tổ chức. Để động viên tinh thần các em, ban tổ chức sẽ chấm điểm ở các trò chơi để xếp hạng và phát quà. Tuy nhiên vì là ngày vui, ban tổ chức muốn tất cả các em đều nhận được quà, kể cả em xếp hạng cuối cùng. Cách phát quà của ban tổ chức như sau: em xếp hạng cuối cùng sẽ được 1 gói quà, em xếp hạng kế trên em cuối cùng được 4 gói quà,…Nói chung, em xếp hạng cao sẽ có số gói quà nhiều hơn bạn xếp hạng liền sau mình 3 gói quà. Biết rằng có n em tham gia rước đèn trung thu và khi tổng kết điểm thì không có hai em nào có cùng số điểm.
Yêu cầu: Hãy cho biết ban tổ chức cần chuẩn bị bao nhiêu gói quà để phát trong đêm Trung thu nếu số lượng em thiếu nhi tham gia đã được biết trước?
Dữ liệu vào: Nhập từ bàn phím số nguyên dương n là số em thiếu nhi tham gia rước đèn trung thu (1≤n≤1000)
Kết quả ra: Xuất ra số gói quà mà ban tổ chức cần chuẩn bị. giúp mk vs ạ:3
Program chiaqua;
Uses crt;
Var n,i,a:Longint;
S:INT64;
Begin
Clrscr;
Write('So em thieu nhi = ');
Readln(n);
S:=1; a:=1;
For i:=2 to n do
Begin
a:=a+3;
S:=S+a;
End;
Write('So goi qua chuan bi = ',S); Readln;