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.