Viết chương trình tìm số nguyên n nhỏ nhất để S > 5.25 biết S = 1 + (1/2) + (1/3) +…+ (1/n)

program tong_thoaman;
uses crt;
var s:real;
    n:integer;
begin
        clrscr;
        s:=0; n:=0;
        while S<=5.25 do
                begin
                        n:=n+1;
                        S:=S+1/n;
                end;
        write(‘n nho nhat la: ‘,n,’ va khi do S= ‘,s:0:2);
        readln;
end.

Bài này mình chạy rồi, n=107