(ngôn ngữ lập trình Free pascal)Viết chương trình nhập số tự nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính tổng sn: $\frac{1*2}{3*4}$+ $\frac{2*3}{4*5}$+ $\frac{3*4}{5*6}$+...+ $\frac{n*(n+1)}{(n+2)*(n+3}$ giúp mình giải bài tập này với
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