program mang;

uses crt;

var i, n, s, s1, dem : integer;

begin

clrscr;

write('nhap so n :');readln(n);

s := 0;

s1 := 0;

dem := 0;

write('cac so nam trong khoang tu 1 den ', n , ' la :');

for i := 1 to n do write(i:3);

writeln;

write('cac so chan tu 1 den ', n ,' la :');

for i := 1 to n do 

begin

if i mod 2 = 0 then write(i:3);

s := s + i;

if i mod 2 <>  0 then s1 := s1 + i;

if i mod 3 = 0 then dem := dem + 1;

end;

writeln;

writeln('tong cac so tu 1 den', n ,' la :', s);

writeln('tong cac so le tu 1 den ', n ,' la :', s1);

writeln('so luong so chia het cho 3 la :', dem);

readln

end.

uses crt;
var n, i, tmp, tam, cnt: longint;
begin
clrscr;
    readln(n);

    for i:=1 to n do write(i, ' ');
    writeln;


    i:=2;
    while i <= n do
        begin
            write(i, ' ');
            inc(i, 2);
        end;
    writeln;

    writeln(n * (n + 1) div 2);

    if n and 1 = 1 then tam:=n
    else tam:=n - 1;
    tmp:=(tam - 1) div 2 + 1;
    writeln((tam + 1) * tmp div 2);

    i:=3;
    while i <= n do 
        begin
            inc(cnt);
            inc(i, 3);
        end;
    writeln(cnt);
readln;
end.