---

program Type27;
var
  i, j: integer;
  c: char;
begin
  write('  |');
  { первая строка заголовка }
  for c := '0' to '9' do
    write(' .', c);
  for c := 'A' to 'F' do
    write(' .', c);
  writeln;
  write('  |');
  { вторая строка заголовка }
  for i := 1 to 15 do
    write('---');
  writeln;
  
  { сама таблица, строка за строкой }
  for i := 2 to 7 do
  begin
    write(i, '.|');
    { Вместо многоточий добавляем цикл по столбцам }
    for j := 0 to 15 do
    begin
      { Вычисляем код символа и печатаем его }
      write('  ', chr(i * 16 + j));
    end;
    writeln; { Переход на новую строку после завершения ряда }
  end;
end.