b) Program tinh_tong;
uses crt;
Var A:array[1..100] of integer; 
       n, i, s :longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s:=0;
        for i:=1 to n do
        if i mod 2 <> 0 then s := s + 1;
        write('So cac so le tu 1->n la:',s),
        readln;
End.

a) Program tinh_tong;
uses crt;
Var A:array[1..100] of integer; 
       n, i, s :longint;
begin
        clrscr;
        write('Nhap n:');
        readln(n);
        s:=0;
        for i:=1 to n do
        if i mod 2 = 0 then s:=s+i;
        write('tong cac so chan tu 1->n la:',s),
        readln;
End.