Help me Viết chương trình tìm số nguyên dương m lớn nhất sao cho 1 + 2 + 3 + … + m < N Giải thích nữa nhá.

program hama; {khai báo chương trình}
uses crt; {khai báo thư viện}
  var n, s, i: integer; {khai báo biến}
begin {bắt đầu chương trình}
        clrscr; {xóa màn hình}
        write(‘Nhap n = ‘); readln(n); {yêu cầu và nhập giá trị biến n}
        s:=0; {gán s = 0}
        i:=1; {gán i = 1}
        while s<n do {kiểm tra điều kiện s<n hay không}
        begin {nếu nhỏ hơn thì bắt đầu đoạn chương trình dưới, không thì dừng lại}
                s:=s+i; {gán giá trị s = s+i}
                if s>=n then write(‘m = ‘, i-1); {nếu giá trị s ≥ n thì in giá trị trước giá trị i (i-1 là giá trị m) ra ngoài màn hình}
                i:=i+1; {tăng giá trị biến đếm để không mắc lỗi vòng lặp vô hạn}
        end; { kết thúc đoạn chương trình while – do}
        readln {thông báo kết quả ra màn hình}
end. { kết thúc chương trình}