program phuongt;                [khai báo tên chương trình]

uses crt;               [khai báo thư viện]

  var i, s: integer;               [khai báo biến]

begin             [bắt đầu chương trình]

            clrscr;               [xóa màn hình]

            s:=0; i:=1;                [gán s = 1; gán i = 1]

            while i<=100 do              [nếu i ≤ 100 thì thực hiện vòng lặp]

            begin           [bắt đầu vòng lặp]

                        s:=s+i;            [gán s = s+i]

                        i:=i+1;            [gán i = i+1]

            end;             [kết thúc vòng lặp]

            write('Tong S = ', s);              [in giá trị tổng s ra ngoài màn hình]

            readln             [thông báo kết quả ra màn hình]

end.           [kết thúc chương trình]