{ > Src.MatMult } program matmult (output);

const size = 40;

type matrix = array[1..size] of array[1..size] of integer;

var a,b,c : matrix;
    i, j : integer;


procedure matmul (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
  for i := 1 to size do
    for j := 1 to size do
    begin
      a[i][j] := i*5 + j;
      b[i][j] := a[i][j] + 25
    end;
{
  for j := 1 to size do
  begin
    for i := 1 to size do write (a[i][j]:6); write(' |');
    for i := 1 to size do write (b[i][j]:6); writeln
  end;

  writeln;
}
  writeln ('Start'); vdu (7); settime (0);

  matmul (size);

  vdu (7); writeln ('Stop : time =',time:6);
{
  for j := 1 to size do
  begin
    for i := 1 to size do write (c[i][j]:6);
    writeln
  end
}
end.