From 727e3c59346da4f91284b34b4c18f2e0ba155e53 Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Sat, 9 Aug 2025 16:03:28 +0200
Subject: Initial commit

---
 guess/src/guess.adb | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 guess/src/guess.adb

(limited to 'guess/src')

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;
-- 
cgit v1.2.3