Language:
Русский
English
{Ord.PAS}
▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Ord function.}
uses WinCrt;
type
Colors = (RED,BLUE,GREEN);
begin
Writeln('BLUE has an ordinal value of ',
Ord(BLUE));
Writeln('The ASCII code for "c" is ',
Ord('c'), ' decimal');
end.