From e0c32cf9ee2ba11bbb16c9b253ac0d6d7d4570fa Mon Sep 17 00:00:00 2001 From: rexim Date: Sat, 9 Mar 2024 02:17:48 +0700 Subject: Implement placing the bombs --- test.adb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'test.adb') diff --git a/test.adb b/test.adb index 268b1f1..401aeab 100644 --- a/test.adb +++ b/test.adb @@ -1,8 +1,11 @@ with Text_IO; use Text_IO; +with Ada.Strings.Fixed; use Ada.Strings.Fixed; +with Ada.Strings; use Ada.Strings; + procedure Test is begin for Index in 1..10 loop - Put_Line("Hello, World!"); + Put_Line(Trim(Integer'Image(Index), Left)); end loop; end; -- cgit v1.2.3