home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASTUTOR.ZIP / STRINGS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-08-14  |  405 b   |  16 lines
  1. PROGRAM TURBO_Pascal_strings;
  2.  
  3. VAR first_name   : STRING[10];
  4.     initial      : CHAR;
  5.     last_name    : STRING[12];
  6.     full_name    : STRING[25];
  7.  
  8. BEGIN  (* main program *)
  9.   first_name := 'John';
  10.   initial := 'Q';
  11.   last_name := 'Doe';
  12.   WRITELN(first_name,initial,last_name);
  13.   full_name := first_name + ' ' + initial + ' ' + last_name;
  14.   WRITELN(full_name);
  15. END.  (* main program *)
  16.