program inSo;
uses crt;
var N,chan,le,i : integer;
begin
clrscr;
writeln('Nhap vao so N: ');
readln(N);
if N <= then exit;
chan:= 0;
le:= 0;
for i:= 1 to N do
begin
    write(i);
    write(' ');
    if (i mod 2) = 0 then
        chan:= chan + 1
    else
        le:= le + 1;
end;
writeln();
writeln('So cac so chan la: ',chan);
writeln('So cac so le la: ',le);
readln;
end.