Tính tổng A=1+1/2+1/3+…+1/n.

program Tong;

uses crt;

var n, i: integer;

      A: real;

Begin

         clrscr;

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

         for i:=1 to n do A:=A+1/i;

         write(‘A = ‘,A:2:2);

         readln

End.