uses crt;
const
     nn=4;
     mm=5;
type
    TElem=integer;
   Matrix=array[1..nn,1..mm] of TElem;

{postro4nii vvod matrici}
 Procedure ReadMatr(var A:Matrix; var n,m:word);
 var
    i,j:word;
 begin
 REPEAT
 write('vvedite koli4estvo strok: ');
 readln(n);
 until(n>0) and (n<=nn);
 repeat
 write('vvedite koli4estvo stolbcov: ');
 readln(m);
 until (m>0) and (m<=mm);
 for i:=1 to n do
     begin
    for j:=1 to m do
        begin
        write('a[',i,',',j,']=');
        readln(a[i,j]);
        end;
    end;
 end;

{postro4nii vivod matrici}
Procedure PrintMatr(a:matrix; n,m:word);
  var
    i,j:word;
    begin
     for i:=1 to n do
    begin
    for j:=1 to m do
    write(A[i,j],' ');
    writeln;
    end;
end;

var
   n,m:word;
   a:matrix;
begin
clrscr;
  Readmatr(a,n,m);
  Printmatr(a,n,m);
end.