Program Task_8_l;
Const MaxN=10; MaxM=8;
Type TMyArray=Array [1..MaxN,1..MaxM] Of Integer;
Var A : TMyArray;
n, m : Integer;
Procedure TInit(Var A:TMyArray;
Var n, m : Integer);
Var i, j : Integer;
Begin
ReadLn(n, m);
For i:= 1 To n Do
For j := 1 To m Do Read(A[i,j]);
End;
Procedure TPrint(A : TMyArray; n, m : Integer);
Var i, j : Integer;
Begin
For i:= 1 To n Do
Begin For j:= 1 To m Do Write(A[i, j]:4);
WriteLn;
End;
End;
begin
TInit(A,n,m);
TPrint(A,n,m);
END.