Viết Chương Trình While…do tính Y=1/2+1/3+1/4+…+1/n

program tinh_tong;

uses crt;

var n,i:integer;

      Y:real;

begin

       clrscr;

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

       i:=2;

       while i<=n do

                begin

                        Y:=Y+1/i;

                        i:=i+1;

                end;

       readln;

end.