uses crt;
  const N=5;
  var i, j: integer;
      a:array [1..5,1..5] of integer;

begin

  for i:=1 to N do
    begin
     for j:=1 to N do
      begin
       a[i,j]:=random(10);
       write (a[i,j],' ');
      end;
     writeln;
    end;

  writeln;

  for i:=1 to N do
    begin
     for j:=1 to N do
      begin
       if i=j then textcolor(4);
       if i>j then textcolor (1);
       if i<j then textcolor (2);
       write (a[i,j],' ');
      end;
     writeln;
    end;

end.