bài 1:

program oken;
uses crt;
var n,i,dem:integer;
begin
        clrscr;
        write('nhap n: '); readln(n);
        dem:=0;
        write('cac so le tu 1 den ',n,': ');
        for i:=1 to n do
                       if i mod 2=1 then
                           begin
                                write(i,' ');
                                dem:=dem+1;
                           end;
        writeln;
        writeln('co ',dem,' so len');
        readln;
end.

bài 2:

program oken;
uses crt;
var n,i,tong:longint;
begin
        clrscr;
        write('nhap n: '); readln(n);
        tong:=0;
        for i:=1 to n do
                       if i mod 2=0 then
                                tong:=tong+i;
        writeln('tong so chan: ',tong);
        readln;
end.

1/

Program BTH;
uses crt;
var i,n,dem:longint;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        write('Cac so le la:');
        For i:=1 to n do
        Begin
                If i mod 2=1 then
                Begin
                        dem:=dem+1;
                        write(i,' ');
                end;
        end;
        writeln;
        writeln('So luong so le la: ',dem);
        readln;
end.

2/

Program BTH;
uses crt;
var i,n,s:longint;
begin
        clrscr;
        write('Nhap n: ');readln(n);
        For i:=1 to n do
                If i mod 2=0 then s:=s+i;
        writeln('Tong cac so duong la: ',s);
        readln;
end.