PROGRAM ARRA(input,output); 
const m=100; n=100;
TYPE  arr = array [1..m,1..n] of real;
VAR i,j:integer;
a : arr;
BEGIN
for i := 1 to n do
for j := 1 to m do
 a[i,j] := i+j;
writeln('initialised');
for i := 1 to n do
for j := 1 to m do
 a[i,j] := a[j,i];
writeln('transposed');
for i := 1 to n do
for j := 1 to m do
 a[i,j] := a[i,j]+1.0;
writeln('done')
END.