1.
Program (...); {Tên chương trình tùy thích}
Uses crt;
Var i: integer;
      S: longint;
Begin
     Clrscr;
     S:=0;
     For i:=1 to 1000 do S:=S+i;
     Writeln('Tong cac so tu 1 den 1000 la ',S); 
     Readln
End.
2.
2.1. Tổng các số chẵn
Program (...);
Uses crt;
Var i,S: integer;
Begin
     Clrscr;
     S:=0;
     For i:=1 to 100 do
       If i mod 2=0 then S:=S+i;
     Writeln('Tong cac so chan tu 1 den 100 la ',S);
     Readln
End.
2.2. Tổng các số lẻ
Program (...);
Uses crt;
Var i,S: integer;
Begin
     Clrscr;
     S:=0;
     For i:=1 to 100 do
       If i mod 2=1 then S:=S+i;
     Writeln('Tong cac so le tu 1 den 100 la ',S);
     Readln
End.