program Tin_hoc;
uses crt;
var i,n:integer;
tong:real;
begin
clrsscr;
write('Nhap n: ');readln(n);
while (5<n) and (n<=100) do begin write('Nhap lai: ');readln(n)
tong:=0;
for i:= 1 to n do tong:= tong + (n*(n+1))/((n+2)*(n+3));
writeln('Tong sn = ',tong:0:4);
readln;
end.
Nhớ vote cho mik 5 sao nha