|
module Main;
|
|
type
|
|
Matrix = array *,* of integer;
|
|
|
|
var
|
|
m: Matrix;
|
|
i,j: integer;
|
|
begin
|
|
write("first dim? ");readln(i);
|
|
write("second dim? ");readln(j);
|
|
m := new Matrix(i,j);
|
|
m[0,0] := 10;
|
|
writeln("m[0,0]:> ",m[0,0]);
|
|
writeln("m[0,1].> ",m[0,1])
|
|
end Main.
|