program key;

var
   c:char;

begin
 c:=inkey;
 writeln(ord(c));
end.
