e) E = 1 + 3 + 5 + . . . + n (n: số lẻ)

Program BTH;
uses crt;
var s,i,n:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        for i:=1 to n do
        Begin
                If i mod 2=1 then s:=s+i;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.