------Thuật toán :
+ b1 : Nhập n
+ b2 : i <- 0 ; s <- 0 
+ b3 : Nếu i > n thì chuyển qua b5
+ b4 : Nếu (i mod 2 ) // chia lấy dư // = 0 thì s:=s+1;
          rồi i:=i+1 và quay lại b3
+ b5 : in tổng s và kết thúc.
------Chương trình : 
program tong_n;
uses crt;
var s,i,n : integer;
begin
clrscr;
write('Nhap n: ');readln(n);
if ( n < 0 ) then
begin
write('So nhap vao khong thoa man. Nhap lai: ');
readln(n);
end;
for i:=0 to n do
if (i mod 2 ) = 0 then s:=s+i;
write('Tong cac so nguyen chan tu 0 -> ',n,' : 's);
readln;
end.