sử dụng lệnh while viết chương trình tính tổng n số tự nhiên đầu tiên sao cho tổng nhỏ nhất lớn hơn giá trị Max. In kết quả ra màn hình và Max được n

program phuongt;

uses crt;

  var n, s, max: integer;

begin

             clrscr;

             write(‘Nhap max = ‘); readln(max);

             s:=0; n:=0;

             while s<=max do

             begin

                      n:=n+1;

                      s:=s+n;

             end;

             write(‘Tong = ‘, s);

             readln

end.