program matice2;
uses crt;
type Tmatice = array [1 .. 10, 1 .. 10 ] of integer;
var a,b,c:Tmatice;
    n:integer;

procedure generuj(var matice:TMatice;n:integer);
var i,j: integer;
begin
 for i:=1 to n do
  for j:=1 to n do matice[i,j]:=random(3)+1;
end;

procedure vypis(var matice:TMatice;n:integer);
var i,j:integer;
begin
 for i:=1 to n do
 begin
  for j:=1 to n do write(matice[i,j]:4);
  writeln;
 end;
end;

procedure soucin(var a,b,c:TMatice;n:integer);
var i,j,k:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
  begin
   c[i,j]:=0;
   for k:=1 to n do c[i,j]:=c[i,j]+a[i,k]*b[k,j];
  end;
end;

begin
 clrscr;
 randomize;
 write('Zadejte rad matic:');
 readln(n);
 generuj(a,n);vypis(a,n);
 writeln;
 generuj(b,n);vypis(b,n);
 writeln;
 soucin(a,b,c,n);
 vypis(c,n);
 readln;
end.