tính tổng các số chắn của dãy gồm 100 số tự nhiên đầu tiên bằng cách dùng While Cần các pác làm gấp

Program tinhtong;

Uses crt;

var i,s:longint;

begin

clrscr;

i:=1;s:=0;

While i<100 do

begin

s:=s+i;

i:=i+1;

end;

writeln(‘tong la:’,s);

readln

end.

~Xin hay nhất ạ~