ADA Program to print a string entered by user

Program

With Gnat.IO; use Gnat.IO;
procedure gnatiostring is
	s : String (1 .. 100);
	i : Integer;
begin
	Put ("Enter a String: ");
	Get_Line (s, i);
	Put ("Your String is : ");
	Put_Line (s (1 .. i));
end;

Output

$ gnat make gnatiostring.adb
gcc -c gnatiostring.adb
gnatbind -x gnatiostring.ali
gnatlink gnatiostring.ali
$ ./gnatiostring
Enter a String: Welcome
Your String is : Welcome