Interface

Type matr=array[1..10,1..10] of real;

Procedure InputMatr(m1,n1:integer;var a1:matr);

Procedure OutputMatr(m1,n1:integer; a1:matr);

Implementation

Procedure InputMatr(m1,n1:integer;var a1:matr);

Var i,j: integer;

Begin

For i:= 1 to m1 do

For j:= 1 to m1 do

Begin

Write(‘a[‘,i,’,’,’j]=’); readln (a1[i,j])

End;

Procedure OutputMatr(m1,n1:integer; a1:matr);

Var i,j: integer;

Begin

For i:= 1 to m1 do

Begin

For j:= 1 to m1 do Write(a[,i,j]:8:2);

Writeln

End;

End.