home *** CD-ROM | disk | FTP | other *** search
/ The Education Master 1994 (4th Edition) / EDUCATIONS_MASTER_4TH_EDITION.bin / files / progscal / ptutor2b / chardemo.pas < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  409b  |  19 lines
  1.                                 (* Chapter 3 - Program 7 *)
  2. program Char_Demonstration;
  3.  
  4. var Letter  : char;
  5.     Number  : char;
  6.     Dogfood : char;
  7.  
  8. begin
  9.    Letter := 'P';
  10.    Number := 'A';
  11.    Dogfood := 'S';
  12.    Write(Letter,Number,Dogfood);
  13.    Letter := Number;             (* This is now the 'A' *)
  14.    Number := 'L';
  15.    Dogfood := 'C';
  16.    Write(Dogfood,Letter,Number);
  17.    Writeln;
  18. end.
  19.