Có 2 cách sửa:

Cách 1: Thay loại của t:

Var i, n: Longint;

t: Real;

*Bonus: Chắc ý bạn là $\frac{1}{i*(i+2)}$  nên bạn nên sửa thành 1/(i*(i+2))

Cách 2: thay $\text{/}$ thành $\text{div}$

t := t+1 div i * (i + 2)

- T = $\frac{1}{3}$ + $\frac{1}{8}$ + $\frac{1}{15}$ + ... + $\frac{1}{n.(n + 2)}$ 

=> Dòng 8 : Kết quả của biến T là một số thực, trong biểu thức sử dụng phép chia nên không thể khai báo biến T là kiểu số nguyên (longint);

=> Dòng 8 : nếu t = t + $\frac{1}{i.(i + 2)}$ thì phải đặt i * (i + 2) vào dấu ngoặc

=> Dòng 9 : sai dấu phân cách giữa xâu kí tự và biến

=> Sửa chương trình :

program bt2;

uses crt;

var i, n : integer; t : real;

begin

clrscr;

write('nhap so n : '); readln(n);

t := 0;

for i := 1 to n do t := t + 1 / (i * (i + 2));

writeln('Tong la ', t : 2 : 3);

readln;

end.