viết chương trình nhập số tự nhiên n và tính tống Sn=1.2/3.4+2.3/4.5+3.4/5.6+...+n.(n+1)/(n+2).(n+3) Pascal

uses crtl

var i,n: integer;

s: real;

begin

clrscr;

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

for i:=1 to n do

s:=s+(i*(i+1))/((i+2)*(i+3));

writeln ('tong la: ',s:1:2);

readln;

end.