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.