Tổng A=1+1/2+1/3+1/4+...+1/n. Viết chương trình nhập số thực b. Tìm số n sao cho tổng A nhỏ nhất lớn hơn b, khi đó tổng sẽ bằng bao nhiêu?

program oken;
uses crt;
var n,i: longint;
    a,b: real;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    a:=0;
    for i:=1 to n do
        a:=a+1/i;
    writeln('Tong A: ',a:0:3);
    write('Nhap so thuc B: '); readln(b);
    while a<=b do
        begin
            i:=i+1;
            a:=a+1/i;
        end;
    writeln('So n can tim: ',i);
    writeln('Tong A moi: ',a:0:3);
    readln;
end.

uses crt;

var n, i : integer; A, b : real;

begin

clrscr;

n := 1; A := 0;

write('Nhap so thuc b : '); readln(b);

while A <= b do

begin

i := n;

A := A + 1 /n;

n := n + 1;

end;

write('So n = ', i ,', Tong = ', A : 2 : 3);

readln

end.