program test_readkey; uses crt; var c : char; begin c:=readkey; case c of #8 : writeln('backspace'); #9 : writeln('tab'); #13: writeln('enter'); #27: writeln('escape'); #32: writeln('space'); else writeln('other'); end; end.