From ac0a1ea7dabaee1b986927efb25e94a3a091fff5 Mon Sep 17 00:00:00 2001
From: Raphael McSinyx <vn.mcsinyx@gmail.com>
Date: Mon, 13 Feb 2017 10:29:05 +0700
Subject: Update others/volume1

---
 others/volume1/046.pas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 others/volume1/046.pas

(limited to 'others/volume1/046.pas')

diff --git a/others/volume1/046.pas b/others/volume1/046.pas
new file mode 100644
index 0000000..146ba7a
--- /dev/null
+++ b/others/volume1/046.pas
@@ -0,0 +1,16 @@
+var
+  n, i, j: int16;
+
+begin
+  readln(n);
+  for i := 0 to n - 1 do
+    begin
+      if i mod 2 = 0 then
+        for j := 1 to n do
+          write(i * n + j, ' ')
+      else
+        for j := n downto 1 do
+          write(i * n + j, ' ');
+      writeln
+    end
+end.
-- 
cgit 1.4.1