Program P18;
type Litere=(A, B, C, D, E, F, G);
var x : Litere;
    y : char;
    i : integer;
begin
 x:=A;
 i:=ord(x); writeln(i);
 y:='A';
 i:=ord(y); writeln(i);
end.