viết phương trình tính tổng các số từ 1 đến n sao cho tổng <= 30

program tong;

uses crt;

var n,T: byte;

Begin

         clrscr;

         n:=1;

         while T<=30 do

         begin

                  n:=n+1;

                  T:=T+n;

         end;

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

         readln

End.