add: 头歌上的隐藏测试集 (#82)

Reviewed-on: PostGuard/Canon#82

open_set/85_matrix_multiply.pas

@@ -0,0 +1,56 @@
+program main;
+
+var
+  a,b,res: array[1..100, 1..100] of integer;
+  n1, m1, n2, m2, i, j, k: integer;
+
+procedure matrix_multiply;
+begin
+  for i := 1 to m1 do
+  begin
+    for j := 1 to n2 do
+    begin
+      for k := 1 to n1 do
+      begin
+        res[i][j] := res[i][j] + a[i][k] * b[k][j];
+      end;
+    end;
+  end;
+end;
+
+function getint: integer;
+begin
+  read(getint);
+end;
+
+begin
+  m1 := getint;
+  n1 := getint;
+  for i := 1 to m1 do
+  begin
+    for j := 1 to n1 do
+    begin
+      a[i][j] := getint;
+    end;
+  end;
+
+  m2 := getint;
+  n2 := getint;
+  for i := 1 to m2 do
+  begin
+    for j := 1 to n2 do
+    begin
+      b[i][j] := getint;
+    end;
+  end;
+
+  matrix_multiply;
+
+  for i := 1 to m1 do
+  begin
+    for j := 1 to n2 do
+    begin
+      write(res[i][j]);
+    end;
+  end;
+end.