Ada - Hello You Program


Home

Author: Mike Silva
Date: February 18, 1999
Info:
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;

Home