Program P1;
var  c, d, e: integer;
     a, b, f: char;
begin Â
    a:= 'Z'; Â
    b:= 'Q';
    c:= ord(a); Â
    writeln (c); Â
    d:= ord (b);
    writeln (d);Â
    e:=64;
    f:= chr (e);Â
    writeln (f);
end.  Â