Bài bạn làm đúng rồi. Chắc cô bạn thấy chưa hoàn chỉnh.

Bài hoàn chỉnh:

*Có dùng vòng for.

uses crt;
var s:integer; i:byte;
begin 
clrscr;
   S:=0;
   for i:=1 to 100 do S:=S+i;
   writeln('S=',S-51);
readln
end.

*Dùng công thức: 

Ta có tổng các số từ 1 đến n sẽ bằng n*(n+1)/2.

Vậy tổng các số từ 1 đến 100 sẽ bằng (100*(100+1))/2 hay là (100*101)/2

uses crt;
var s:integer; 
begin 
clrscr;
   S:=(100*101) div 2;
   writeln('S=',S-51);
readln
end.

2 vòng for:

uses crt;
var i,s:integer;
begin
clrscr;
   for i:=1 to 50 do inc(s,i);
   for i:=52 to 100 do inc(s,i);
   write(s);
readln;
end.

Cách thông minh hơn:

uses crt;
var i,s:integer;
begin
clrscr;
   i:=1;s:=0;
   while i<=100 do 
      begin
         s:=s+i;
         i:=i+1;
      end;
   write('Tong: ',s-51);
readln;
end.