program p69_41;
uses crt;
const n=10;
var a,b:array[1..n,1..n]of integer;
    i,j:1..n;
begin
clrscr;
randomize;
 for i:=1 to n do for j:=1 to n do a[i,j]:=random($7fff);
 for i:=1 to n do if not odd(i)then
 for j:=1 to n do b[i,j]:=a[i,n-j+1]else
 for j:=1 to n do b[i,j]:=a[i,j];

 Writeln('Matricea A:');
 for i:=1 to n do begin
  for j:=1 to n do write(a[i,j]:6);
  writeln;
 end;
 Writeln(#$D#$A'Matricea B:');
 for i:=1 to n do begin
  for j:=1 to n do write(b[i,j]:6);
  writeln;
 end;
readkey
end.