Add multilingual Agila learning examples and Git practice guide

This commit is contained in:
Agila University committed 2026-11-01 14:08:37 +08:00
commit 85f487afb0
79 files changed
+813

No files matched your search

+18
View File
@@ -0,0 +1,18 @@
pragma Assertion_Policy (Check);
with Ada.Text_IO;
procedure Main is
subtype Level is Integer range 0 .. 10;
function Next_Level (Current : Level) return Level
with Pre => Current < Level'Last,
Post => Next_Level'Result = Current + 1;
function Next_Level (Current : Level) return Level is
begin
return Current + 1;
end Next_Level;
begin
pragma Assert (Next_Level (0) = 1);
pragma Assert (Next_Level (9) = 10);
Ada.Text_IO.Put_Line ("Pumasa ang dalawang pagsusuri sa hangganan");
end Main;