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

program tong_F;

uses crt;

var n,i:integer;

      F:real;

begin

        clrscr;

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

        F:=0;

        for i:=1 to n do

                F:=F+1/i;

        write(‘F= ‘,f:2:2);

        readln;

end.