sử dụng câu lệnh while ..do viết chương tính tổng các số tự nhiên chẵn nhỏ hơn hoặc bằng n

var i,n: integer;

s:longint;

begin

write(‘nhap so n=’);readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i; i:=i+1;

end;

write(‘tong cua’,n,’ so tu nhien dau tien la’,s);

readln

end.