Program TKA;  {RCz 11.05}
uses crt;
var a,b,c: Word;

begin
clrscr;
b:=0;
repeat
c:=c+1;
repeat
a:=b;
       repeat
       textcolor(0);
       if (c=1) or (c=8) then  {pokazanie tylko 1 i 8 planszy}
       if (a=23*7+b) then writeln else if a<256 then
       begin
       if (a=7) or (a=8) or (a=10) or (a=13) then
          begin
          textcolor(15); write(chr(a));
          textcolor(14); if a<10 then begin
                                      textcolor(red);
                                      write(' ------');
                                      textcolor(14);
                                      write(a,';  ');
                                      end
                                 else begin
                                      textcolor(red);
                                      write(' -----');
                                      textcolor(14);
                                      write(a,';  ');
                                      end;
          end else
          begin
          textcolor(15); write(chr(a));
          {textcolor(14);} if a<10 then begin
                                      textcolor(red);
                                      write('------');
                                      textcolor(14);
                                      write(a,';  ');
                                      end;
                         if (a<100) and (a>=10) then begin
                                                     textcolor(red);
                                                     write('-----');
                                                     textcolor(14);
                                                     write(a,';  ');
                                                     end;
                         if a>=100 then begin
                                        textcolor(red);
                                        write('----');
                                        textcolor(14);
                                        write(a,';  ');
                                        end;
          end;
       end;
       a:=a+23;
       until a=23*8+b;
b:=b+1;
until b=c*23;
if (c=1) then readln;
until c=8;
readln;
textcolor(15);
end.