Update others/volume1

1 files changed, 39 insertions, 0 deletions

diff --git a/others/volume1/068.pas b/others/volume1/068.pas
new file mode 100644
index 0000000..fa568dc
--- /dev/null
+++ b/others/volume1/068.pas
@@ -0,0 +1,39 @@
+var
+  n, m, i, j: int16;
+  a: array of array of int32;
+  s: int64 = 0;
+
+begin
+  readln(n, m);
+  setlength(a, n + 2);
+  setlength(a[0], m + 2);
+  for i := 0 to m + 1 do
+    a[0][i] := 0;
+  for i := 1 to n do
+    begin
+      setlength(a[i], m + 2);
+      a[i][0] := 0;
+      for j := 1 to m do
+        read(a[i][j]);
+      a[i][m + 1] := 0
+    end;
+  setlength(a[n + 1], m + 2);
+  for i := 0 to m + 1 do
+    a[n + 1][i] := 0;
+
+  for i := 1 to n do
+    for j := 1 to m do
+      if a[i][j] <> 0 then
+        begin
+          if a[i][j] > a[i - 1][j] then
+            s := s + a[i][j] - a[i - 1][j];
+          if a[i][j] > a[i + 1][j] then
+            s := s + a[i][j] - a[i + 1][j];
+          if a[i][j] > a[i][j - 1] then
+            s := s + a[i][j] - a[i][j - 1];
+          if a[i][j] > a[i][j + 1] then
+            s := s + a[i][j] - a[i][j + 1];
+          s := s + 1
+        end;
+  writeln(s)
+end.