program loop(input,output);
const
  DIM = 1;
type
  matrix = array[1..DIM,1..DIM] of integer;
var
  a: matrix;
  b: matrix;
  i: integer;
  j: integer;
begin
  for i := 1 to DIM do
    for j := 1 to DIM do
      a[i,j] := b[j,i];
end.