Viết chương trình - Nhập vào số nguyên N. - Xuất ra màn hình các số chẵn từ 1 đến N - Xuất ra màn hình các số lẻ từ 1 đến N

program oken;
uses crt;
var n,i:longint;
begin
        clrscr;
        write('Nhap N: '); readln(n);
        write('Cac so le tu 1 den ',n,': ');
        for i:=1 to n do
                if i mod 2<>0 then write(i,' ');
        writeln;
        write('Cac so chan tu 1 den ',n,': ');
        for i:=1 to n do
                if i mod 2=0 then write(i,' ');
        readln;
end.

uses crt;
var n:integer;
    i:byte;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   write('Cac so chan la: ');
   for i:=1 to n do
   if i mod 2 = 0 then write(i:2);
   writeln;
   write('Cac so le la: ');
   for i:=1 to n do
   if i mod 2 <> 0 then write(i:2);
   readln
end.