1 files changed, 30 insertions, 0 deletions
diff --git a/others/volume1/008.pas b/others/volume1/008.pas
new file mode 100644
index 0000000..2d0f2d0
--- /dev/null
+++ b/others/volume1/008.pas
@@ -0,0 +1,30 @@
+var
+  n, d, m, i: byte;
+  p: qword = 1;
+
+begin
+  readln(n);
+  d := n div 3;
+  m := n mod 3;
+
+  if n < 3 then
+    begin
+      writeln(n);
+      exit
+    end;
+
+  if m = 1 then
+    begin
+      for i := 2 to d do
+        p := p * 3;
+      p := p * 4
+    end
+  else
+    for i := 1 to d do
+      p := p * 3;
+
+  if m = 2 then
+    p := p * 2;
+
+  writeln(p)
+end.