Program P22;
 { Numerele de ordine ale valorilor de tip ordinal }
type T1=(A, B, C, D, E, F, G, H);
     T2=B..G;
begin
 writeln(ord(-32));     { -32 }
 writeln(ord(true));    {   1 }
 writeln(ord('A'));     {  65 }
 writeln(ord(A));       {   0 }
 writeln(ord(B));       {   1 }
end.