Viết chương trình tổng của n số tự nhiên đầu tiên `0 < n <= 150` Mình cần gấp lắm ,các bạn giúp mình với

program tong;

uses crt;

var n,i,T: integer;

Begin

         clrscr;

         write(‘Nhap n: ‘); readln(n);

         while (n<0) and (n>150) do

         begin

                  write(‘Nhap lai 0<n<=150: ‘); readln(n);

         end;

         for i:=1 to n do T:=T+i;

         write(‘T = ‘,T);

         readln

End.