Bài 10 : Một giáo viên vào lớp và phát kẹo cho các em học sinh theo qui tắc sau : em đầu tiên được nhận 1 viên kẹo, em tiếp theo nhận số kẹo nhiều hơn em trước đó 3 viên. Hỏi nếu lớp học có 20 học sinh thì tổng số kẹo phải có để Giáo viên phát đủ cho cả lớp.
Dùng for...to...do
Nhớ thêm lệnh Readln; trước End.
Var i,sk,s:integer;
Begin
s:=0;
sk:=0;
For i:=1 to 20 do
Begin
sk:=sk+3;
s:=s+sk;
End;
Write('Tong so keo can de phat la ',s);
End.