program TableOfCharacters;
{
	Задача:
	- 141 из "Turbo Pascal в задачах и примерах"
	- автор сборника Никита Культин
	Решение:
	- автор Дмитрий С. Кузнецов
	- цена $112.11
}
const
	cols = 7;
	rows = 16;
var
	i, j, n	:integer;
begin
writeln('  -= Table of Charactes =-');
for i := 0 to 15 do
  begin
  for j := 1 to cols do
    begin
    n := i + j * rows;
    write(chr(n):3);
    end;
 
  writeln
  end
end.
 

cHJvZ3JhbSBUYWJsZU9mQ2hhcmFjdGVyczsKewoJ0JfQsNC00LDRh9CwOgoJLSAxNDEg0LjQtyAiVHVyYm8gUGFzY2FsINCyINC30LDQtNCw0YfQsNGFINC4INC/0YDQuNC80LXRgNCw0YUiCgktINCw0LLRgtC+0YAg0YHQsdC+0YDQvdC40LrQsCDQndC40LrQuNGC0LAg0JrRg9C70YzRgtC40L0KCdCg0LXRiNC10L3QuNC1OgoJLSDQsNCy0YLQvtGAINCU0LzQuNGC0YDQuNC5INChLiDQmtGD0LfQvdC10YbQvtCyCgktINGG0LXQvdCwICQxMTIuMTEKfQpjb25zdAoJY29scyA9IDc7Cglyb3dzID0gMTY7CnZhcgoJaSwgaiwgbgk6aW50ZWdlcjsKYmVnaW4Kd3JpdGVsbignICAtPSBUYWJsZSBvZiBDaGFyYWN0ZXMgPS0nKTsKZm9yIGkgOj0gMCB0byAxNSBkbwogIGJlZ2luCiAgZm9yIGogOj0gMSB0byBjb2xzIGRvCiAgICBiZWdpbgogICAgbiA6PSBpICsgaiAqIHJvd3M7CiAgICB3cml0ZShjaHIobik6Myk7CiAgICBlbmQ7CiAgICAKICB3cml0ZWxuCiAgZW5kCmVuZC4K