(* Chapter 7 - Programming exercise 1 *)
program My_Name;

var First_Name : string[10];
    Initial    : char;
    Last_Name  : string[10];
    Full_Name  : string[30];

begin

   First_Name := 'John';
   Initial    := 'Q';
   Last_Name  := 'Doe';
   Writeln(First_Name,' ',Initial,' ',Last_Name);

   Full_Name := First_Name + ' ' + Initial + ' ' + Last_Name;
   Writeln(Full_Name);

end.





{ Result of execution

John Q Doe
John Q Doe

}