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

program tinh_tong;

uses crt;

var n,i:integer;

      s:real;

begin

       clrscr;

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

       s:=0;

       for i:=1 to n do

              s:=s+1/i;

       write(‘S= ‘,s:0:3);

       readln;

end.