ADA Program to print a character entered by user

Program

With Gnat.IO; use Gnat.IO;
procedure gnatiochar is
	C : Character;
begin
	Put ("Enter a single character: ");
	Get (c);
	Put ("You entered: ");
	Put (c);
	Get (c);
	New_Line;
end;

Output

$ gnat make gnatiochar.adb
gcc -c gnatiochar.adb
gnatbind -x gnatiochar.ali
gnatlink gnatiochar.ali
$ ./gnatiochar
Enter a single character: s
You entered: s