Sử dụng câu lệnh lặp với số lần biết trước để viết chương trình tính tổng của A=1+1/2+1/3+1/4+…+1/n Mk đang cần gấp

program tinh_tong;

uses crt;

var n,i:integer;

      a:real;

begin

      clrscr;

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

      a:=0;

      for i:=1 to n do

            a:=a+1/i;

      write(‘A= ‘,a);

      readln;

end.