program test(tty:#); begin while true do begin writeln(tty,ord(tty^)); get(tty); end; end.