Chương trình có một số lỗi nên mình sửa lại cho bạn thế này nhé!

Lỗi 1: S ở đây phải kiểu số thực (ở đây mình dùng extended) vì ở phần thân chương trình thực hiện phép chia nên s sẽ là số thực

Lỗi 2: Công thức của bình phương là sqr(x) chứ không phải spr(x) nhé!

---

Uses crt;
Var i: integer;
    s: extended;
Begin
        Clrscr;
        s:=0;
        For i:=6 downto 2 do
        Begin
                S:=S+(Sqr(i)+1)/(i+5);
                Writeln(S:0:2);
        End;
        Writeln('Tong = ',s:0:2);
        Readln
End.

---

Ban đầu, S có giá trị bằng 0

Biến i được chạy ngược từ 6 về 2

---

i = 6

$=> S = S+ \frac{i^{2}+1}{i+5}$ = $S = 0 + \frac{6^{2}+1}{6+5}=3,36$ 

---

i = 5

$=> S = S + \frac{i^{2}+1}{i+5}$ = $S = 3,36+ \frac{5^{2}+1}{5+5}=5,96$ 

---

i=4

$=> S = S+ \frac{i^{2}+1}{i+5}$ = $S = 5,96+ \frac{4^{2}+1}{4+5}=7,85$

---

i=3

$=> S = S+ \frac{i^{2}+1}{i+5}$  = $S = 7,84+ \frac{3^{2}+1}{3+5}=9,10$ 

---

i=2

$=> S = S+ \frac{i^{2}+1}{i+5}$ = $S = 9,10+ \frac{2^{2}+1}{2+5}=9,82$ 

---

Vì vậy, sau khi chạy xong chương trình, kết quả của S sẽ là 9,82