Program billentyukodok;
uses crt;
var c:char;
begin
  textcolor(7);
  writeln;
  normvideo;
  textbackground(black);
  clrscr;
  c:=readkey;
  while c<>'x' do
    begin
     if ord(c)=0 then
                 begin
                  write('Ket kodja van, az elso a nulla, ');
                  c:=readkey;
                  writeln('a masodik a ',ord(c))
                 end
                else writeln(c,'  kodja: ',ord(c));
     c:=readkey;
    end;
end.