var
    a : array [1..5] of integer = (8, 3, 2, 6, 1);
    b : array [1..5] of integer;
    c : array [1..5] of integer;
    i, j, k, n : integer;
begin
    j := 1;
    k := 1;
    n := 5;
    
    for i := 1 to n do
        if a[i] < 5 then 
        begin
            b[j] := a[i];
            j := j + 1;
        end
        else
        begin
            c[k] := a[i];
            k := k + 1;                
        end;
    
    for i := 1 to j -1 do
        WriteLn(b[i], ' ');
    WriteLn();
    
    for i := 1 to k -1 do
        WriteLn(c[i], ' ');
    WriteLn();
    
    ReadLn();
end.