Tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 100. Giúp với ạ:33

program tim_n;

uses crt;

var n,t:integer;

begin

     clrscr;

     t:=0;  n:=0;

     while t<=100 do

          begin

               n:=n+1;

               t:=t+n;

          end;

     write(‘n nho nhat la: ‘,n,’ va khi do tong la: ‘,t);

     readln;

end.