program SeparateArrays;
var
A, B, C: array of Real;
m, i, countB, countC: Integer;
begin
Write${}^{\prime }EnterthenumberofelementsinarrayA{:}^{\prime }$;
ReadLn$m$;

SetLength$A,m$;

WriteLn${}^{\prime }EntertheelementsofarrayA{:}^{\prime }$;
for i := 0 to m - 1 do
begin
ReadLn$A[i]$;
if A$$i$$ > 5.5 then
countB := countB + 1
else
countC := countC + 1;
end;

SetLength$B,countB$;
SetLength$C,countC$;

countB := 0;
countC := 0;

for i := 0 to m - 1 do
begin
if A$$i$$ > 5.5 then
begin
B$$countB$$ := A$$i$$;
countB := countB + 1;
end
else
begin
C$$countC$$ := A$$i$$;
countC := countC + 1;
end;
end;

WriteLn${}^{\prime }ElementsofarrayB{:}^{\prime }$;
for i := 0 to Length$B$ - 1 do
WriteLn$B[i]$;

WriteLn${}^{\prime }ElementsofarrayC{:}^{\prime }$;
for i := 0 to Length$C$ - 1 do
WriteLn$C[i]$;
end.