home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / PASTUT24.ZIP / PTUTRSRC.ZIP / CHARDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-12-01  |  455 b   |  28 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.  
  20.  
  21.  
  22.  
  23. { Result of execution
  24.  
  25. PASCAL
  26.  
  27. }
  28.