uses crt; var i,n:longint; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do write(i,' '); writeln; for i:=1 to n do if i mod 2=1 then write(i,' '); writeln; for i:=1 to n do if i mod 2=0 then write(i,' '); readln end.
uses crt; var n,i:longint; begin clrscr; readln(n); for i:=1 to n do write(i,' ');writeln; for i:=1 to n do if i mod 2=1 then write(i,' ');writeln; for i:=1 to n do if i mod 2=0 then write(i,' '); readln; end.