Program readkey1;
 uses crt;
 var ch : char;

Begin
 repeat
  ch:=ReadKey;
  write( ord(ch) );
  if ord(ch) = 0
   then
    Begin
     ch:=readkey;
     write(ord(ch));
     case ord(ch) of
     59..68 : writeln(' F',ord(ch)-58);
     71 : writeln(' home');
     72 : writeln(' sipka hore');
     73 : writeln(' page up');
     75 : writeln(' sipka dolava');
     77 : writeln(' sipka doprava');
     79 : writeln(' end');
     80 : writeln(' sipka dole');
     81 : writeln(' page down');
     82 : writeln(' insert');
     83 : writeln(' delete');
     End;
    End
   else writeln;
  until ord(ch)=13;
 writeln('-----------------------');
End.