ord.pas

 {Ord.PAS}
 
 { Пример программы для функции Ord }
 
 Uses WinCrt;
 
 Type Colors = (RED, BLUE, GREEN);
 
 Begin
  WriteLn('Порядковый номер BLUE равен ', Ord(BLUE));
  WriteLn('ASCII код для символа "c" равен ', Ord('c'));
 End.