More Ada support.

2026-08-29 16:40:42 +08:00 · 2023-04-02 10:45:53 -05:00
parent b268944103
commit 5b3037096f
15 changed files with 444 additions and 24 deletions
@@ -0,0 +1,17 @@
+
+with Ada.Text_IO;         use  Ada.Text_IO;
+with Ada.Integer_Text_IO; use  Ada.Integer_Text_IO;
+
+procedure helloadaexceptions is
+
+    x   :integer range 1..20;
+    y   :integer;
+
+begin
+
+    put("enter a number "); get(y);
+    x:=y;
+    put("thank you");
+
+end helloadaexceptions;
+