Ada - Hello You Program

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Strings.Fixed; use Ada.Strings.Fixed;

procedure Hello_You is
    Name      : String(1..50);
    Last_Pos  : Natural;
begin
    Put( "What is your name? " );
    Get_Line( Item => Name, Last => Last_Pos );
    Put_Line( "Hello " & Head( Name, Last_Pos ) );
end Hello_You;