From d3bfe2ac3fb44635f8ce177101f898590356c79b Mon Sep 17 00:00:00 2001
From: antranigv <antranig@cert.am>
Date: Fri, 2 Jun 2017 17:53:29 +0400
Subject: [PATCH] into to IF \& ELSE

---
 ifelse/IfElse.Mod | 42 ++++++++++++++++++++++++++++++++++++++++++
 ifelse/Makefile   | 10 ++++++++++
 2 files changed, 52 insertions(+)
 create mode 100644 ifelse/IfElse.Mod
 create mode 100644 ifelse/Makefile

diff --git a/ifelse/IfElse.Mod b/ifelse/IfElse.Mod
new file mode 100644
index 0000000..ca72a36
--- /dev/null
+++ b/ifelse/IfElse.Mod
@@ -0,0 +1,42 @@
+MODULE ifelse;
+
+
+IMPORT Out;
+
+VAR n, m : INTEGER;
+
+
+BEGIN
+	IF 8 MOD 4 = 0
+		THEN
+			Out.String("8 is divisible by 4"); Out.Ln;
+	END;
+
+	n := 7; m := 6;
+
+	IF n * m = 42
+		THEN
+			Out.String("7 times 6 equals 42"); Out.Ln;
+	END;
+
+	IF n # m THEN Out.String("7 does not equal 6"); Out.Ln; END;
+
+	IF ODD(n)
+		THEN
+			Out.String("7 is odd"); Out.Ln;
+		ELSE
+			Out.String("7 is even"); Out.Ln;
+	END;
+
+	n := 9;
+
+	IF n < 0
+		THEN
+			Out.Int(n, 0); Out.String(" is negative"); Out.Ln;
+	ELSIF n < 10
+		THEN
+			Out.Int(n, 0); Out.String(" has 1 digit"); Out.Ln;
+	ELSE
+			Out.Int(n, 0); Out.String(" has multiple digits"); Out.Ln;
+	END;
+END ifelse.
diff --git a/ifelse/Makefile b/ifelse/Makefile
new file mode 100644
index 0000000..5336cd5
--- /dev/null
+++ b/ifelse/Makefile
@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m IfElse.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym