Viết chương trình dùng câu lệnh for to do T=1/1*3 + 1/2*4 +-..+1/n(n-2)

program tinhtong;

uses crt;

var n,i:integer;

       s:real;

begin

clrscr;

write(‘Nhap n: ‘);  readln(n);

t:=0;

for i:=1 to n do

  t:=t+1/(n*(n-2));

write(‘Tong la: ‘,t:2:3);

readln

end.