Sử dụng câu lệnh while…do để tính tổng các số tự nhiên từ 1 đến 100

Program Giang;

Uses crt;

Var   S, i: integer;

Begin

        clrscr;

        S : = 0;

        i := 1;

        while i <= 100 do

        begin

                S := S + i;

                i := i + 1;

        end;

        writeln (S);

        readln;

end.