Initial commitHEADmain

1 files changed, 20 insertions, 0 deletions

diff --git a/guess/src/guess.adb b/guess/src/guess.adb
new file mode 100644
index 0000000..dc394fa
--- /dev/null
+++ b/guess/src/guess.adb
@@ -0,0 +1,20 @@
+with Ada.Text_IO;         use Ada.Text_IO;
+with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
+
+procedure Guess is
+  Answer : Integer := 47;
+  Guess  : Integer;
+begin
+  loop
+    Put ("Enter a number: ");
+    Get (Guess);
+    if Guess < Answer then
+      Put_Line ("Too low!");
+    elsif Guess > Answer then
+      Put_Line ("Too high!");
+    elsif Guess = Answer then
+      Put_Line ("Correct!");
+    end if;
+    exit when Guess = Answer;
+  end loop;
+end Guess;