Program BTT;
Uses crt;
Var n,i,d,dem: byte;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        d:=0; dem:=0;
        For i:=1 to n do
        Begin
                If i mod 2 <> 0 then inc(d);
                If i mod 3 = 0 then inc(dem);
        End;
        Writeln('Co ',d,' so le');
        Write('Co ',dem,' so chia het cho 3');
        Readln
End.

uses crt;

var k, n, d, t : integer;

begin

clrscr;

d := 0; t := 0; k := 1;

write('Nhap so n = '); readln(n);

while k <= n do

    begin

        if k mod 2 <> 0 then t := t + k;

        if k mod 3 = 0 then d := d + 1;

        k := k + 1;

    end;

writeln('Tong cac so le = ', t);

write('Co ', d ,' so chia het cho 3');

readln

end.