Программа

TYPE TypeA=array[1..4,1..3] of integer;
     TypeB=array[1..3,1..4] of integer;
VAR A:TypeA;
    B:TypeB;
    i,j:byte;
BEGIN
  WriteLn;
  for i:=1 to 4 do for j:=1 to 3 do A[i,j]:=i*10+j;
  for i:=1 to 4 do Begin
                     for j:=1 to 3 do Write(' ',A[i,j]:2);
                     WriteLn
                   End;
  TypeA(B):=A;
  WriteLn;
  for i:=1 to 3 do Begin
                     for j:=1 to 4 do Write(' ',B[i,j]:2);
                     WriteLn
                   End;
  WriteLn;
  for i:=1 to 3 do Begin
                     for j:=1 to 4 do Write(' ',TypeB(A)[i,j]:2);
                     WriteLn
                   End;
END.