program z106;</br>
  uses crt;</br>
  const n=6;</br>
  var a:array[1..n,1..n] of integer;</br>
  i,j,k:integer;</br>
  Begin
  randomize;</br>
  for i:=1 to n do begin
  for j:=1 to n do begin
  a[i,j]:=random(5)+1;</br>end;</br>
  write(a[i,j]);</br>end;</br>
  for i:=1 to n do
  for j:=1 to n do a[i,n-j+1]:=(j-1)*n+1;</br>
  write(a[i.j]:7:2);</br>





  END.