Viết chương trình tính tổng sau :S=1+2+3+…+n sao cho tổng S nhỏ nhất >500

program tong;

uses crt;

var n,S: integer;

Begin

         while S<=500 do

         begin

                  n:=n+1;

                  S:=S+n;

         end;

         write(‘S = ‘,S,’ ,  n = ‘,n);

         readln

End.