program z8_158;
Const Nmax = 5;
Type TArr = Array [1..Nmax, 1..Nmax] Of Integer;
TCnt = Array [1..Nmax] Of Integer;
TLin = Array [0..Nmax*Nmax] Of Integer;
Var A:tarr;
T:tcnt;
l: TLin;
k,i, j, n, m : Integer;
Begin
n:=5;m:=3;
For i := 1 To m Do begin
Read (T [i] ) ;
for k:=1 to t[i] do
readln(a[i,k]);
end;
L[0] := 0;
For i := 1 To m Do
For j := 1 To T[i] Do Begin
Inc(L[0]); L[L[0]] := A[i, j]; End;
WriteLn('New array: ');
If L[0] <> 0 Then for i:=1 to l[0] do write(l[i],' ')
else writeln('no element');
readln;
end.