Viết chương trình sử dụng while..do tính tổng 100 số tự nhiên đầu tiên. -Giúp mk với ạ cần gấp

uses crt;

var tong:integer;

    i:byte;

BEGIN

        clrscr;

        i:=1; tong:=0;

        while i<=100 do

        begin

                tong:=tong+i;

                inc(i);

        end;

        write(‘Tong 100 so tu nhien dau tien la:’,tong);

        readln

END.

Xin ctlhn!