Thật ra thì tui cũng khá bất lực khi nhìn thấy trong mục câu hỏi Tin học
LIÊN TỤC 1 DÃY CÂU HỎI LÀ KHÔNG CÓ CÂU TRẢ LỜI LUÔN
Nhưng mà vã quá rồi. Mong mọi người giúp đỡ
Có cách đơn giản hơn chương trình con khai báo x,y
Khai báo biến tạm
For i:=1 to y do tam:=tam*x như thế là xong chương trình con, vào chương trìn chính chỉ cần cộng lại là được rồi