viết chương trình tìm số tự nhiên n nhỏ nhất để tổng 1+2+3+..n> hoặc = 1000

program tinhtong;

uses crt;

var n,s:integer;

begin

     clrscr;

     S:=0;  n:=0;

     while S<1000 do

          begin

               n:=n+1;

               S:=S+n;

          end;

     write(‘so tu nhien nho nhat thoa man la: ‘,n,’ voi tong la: ‘,S);

     readln;

end.