1: program consttest (input, output);
   2: const
   3:     PI = 3.14159;
   4:     N = 10;
   5:     MESSAGE = 'this is a test';
   6:     CH = 'x';
   7: type
   8:     Color = (RED, BLUE, GREEN);
   9: 
  10: procedure p ;
  11: const
  12:     R = RED;
  13: type
  14:     T = integer;
  15: var i : integer;
  16: begin
  17: end;
  18: 
  19: begin
  20: end.
Last modified: 1985-03-08
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 408
Valid CSS Valid XHTML 1.0 Strict