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}
