- Nhập mảng n phần tử: Hãy sắp xếp các số chẵn chia hết cho 3 lên đầu dãy, các số lẽ chia hết cho 3 xuống cuối dãy, những số còn lại ở giữa. pascal

uses crt;
var
    a : array[1..1000000] of longint;
    b : array[1..1000000] of longint;
    chan,le,n,i,k,i1 : longint;
begin
clrscr;
    write(' Nhap so hang tu muon nhap : ');readln(n);
    k := n;
    chan := 1;
    le := n;
    for i := 1 to n do
        begin
        write(' Nhap phan tu thu ',i,' : ');readln(a[i]);
        end;
    for i := 1 to n do
        begin
        if ( a[i] mod 2 = 0 ) and ( a[i] mod 3 = 0 ) then 
            begin
            b[chan] := a[i];
            chan := chan + 1;
            end
        else
        if ( a[i] mod 2 <> 0 ) and ( a[i] mod 3 = 0 ) then
            begin
            b[le] := a[i];
            le := le - 1;
            end;
        end;
    for i := 1 to n do
        begin
            if ( a[i] mod 2 <> 0 ) and ( a[i] mod 3 <> 0 ) then
                begin
                b[chan] := a[i];
                if chan = ( le + 1 ) then break;
                chan := chan + 1;
                end;
        end;
    for i := 1 to n do write(b[i],' ');
end.