program kurzor;
uses crt;
type pole=array[1..2] of integer;
var k:pole;
    i:char;
    s:integer;
begin
repeat
i:=readkey;

write(i,' = ');
s:=ord(i);
writeln(s);
until i=#27;
end.