viết chương trình tính tổng S=(1-1/2)(1-1/3)(1-1/4)…(1-1/n)

program tinhtong;

uses crt;

var n,i:integer;

      s:real;

begin

       clrscr;

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

       S:=0;

       for i:=2 to n do

              S:=S+(1-1/n);

       write(‘S= ‘,s:2:2);

       readln;

end.