{
This program illustrates the use of the predeclared procedures
ord and chr:
}


program three5;

  type
    colors = (red,green,yellow,blue);

  begin
    writeln(ord(red):3,ord(green):3,ord(yellow):3,ord(blue):3);
    writeln(chr(ord('A')));
  end.  { 3-5 }


{
Executing this program will result in the following output:

  0  1  2  3
A
}