Program abc;var i, j: byte; arr1, arr2: array [1..5] of array [1..5] of integer; arr: array[1..25] of integer;begin for i := 1 to 25 do begin arr[i] := i; end; writeln('array1:'); for i := 1 to 5 do begin for j := 1 to 5 do begin arr1[i][j] := arr[(i - 1) * 5 + j]; write(' ', arr1[i][j], ' '); end; writeln(); end; writeln('array2:'); for i := 1 to 5 do begin for j := 1 to 5 do begin arr2[i][j] := arr1[j][i]; write(' ', arr2[i][j], ' '); end; writeln(); end;end.