viết chương trình kiểm tra cần cộng bao nhiêu số tự nhiên n đầu tiên để nhận được tổng nhỏ nhất lớn hơn 500 trả lời gấp cho mình với :3 mình cảm ơn :3

program tong_nhonhat;

uses crt;

var n,s:integer;

begin

       clrscr;

       n:=0; s:=0;

       while s<=500 do

              begin

                     n:=n+1;

                     s:=s+n;

              end;

       write(‘Can cong ‘,n,; so va khi do tong bang ‘,s);

       readln;

end.