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