[alan] Add inputs and results for factors and gcd

alan/programs/factors.alan

@@ -4,7 +4,7 @@ main() : proc
   flag : int;
 
 {
-  writeString("Enter value of N > ");
+  writeString("Please, give me a positive integer: ");
   n = readInteger();
   lcv = 2; flag = 1;
   while (lcv <= (n / 2))

alan/programs/factors.input

@@ -0,0 +1 @@
+37483783

alan/programs/factors.result

@@ -0,0 +1,3 @@
+Please, give me a positive integer: The non-trivial factors of 37483783 are: 
+293
+127931

alan/programs/gcd.alan

@@ -21,10 +21,10 @@ gcd():proc
 	b:int;
 
 	{
-		writeString("Give the first integer: ");
-		a=readInteger();
-		writeString("Give the second integer: ");
-		b=readInteger();
-		writeString("\nThe gcd you are looking for is ");
+		writeString("Give me two positive integers: \n");
+		a = readInteger();
+		b = readInteger();
+		writeString("\nTheir GCD is: ");
 		writeInteger(find_gcd(a, b));
+		writeString("\n");
 	}

alan/programs/gcd.input

@@ -0,0 +1,2 @@
+123456789
+666

alan/programs/gcd.result

@@ -0,0 +1,3 @@
+Give me two positive integers: 
+
+Their GCD is: 9