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 gấp

Chúc học tốt

Program tinhtong;

Uses crt;

var i,s:longint;

begin

clrscr;

i:=1;s:=0;

While i<= 100 do If i mod 2 = 0 then S:= S+i;

begin

s:=s+i;

i:=i+1;

Writeln(‘ tong cac so chan :’,S);

Readln;

end.