with Ada.Text_IO;
use Ada.Text_IO;

procedure String_oprations is
First_Name : string(1..30);
Last_Name : string(1..30);
Job : constant STRING := "Computer Programmer";
location : string(1..15) ;
int:natural;

begin
Put_Line("Enter the first name :");
get(First_Name,int);
Put_Line("Enter the last name :");
get(Last_Name,int);
put_line("enter the location :");
get(location,int);

put_line("The details are :");
put(First_Name);
new_line;
get(Last_Name);
new_line;
put(Job);
new_line;
put(location);

end String_oprations;