Const
Nr1 : array [1..60] of string =
('100000','010000','110000','001000',
'101000','011000','111000','000100',
'100100','010100','110100','001100',
'101100','011100','111100','000010',
'100010','010010','110010','001010',
'101010','011010','111010','000110',
'100110','010110','110110','001110',
'101110','011110','111110','000001',
'100001','010001','110001','001001',
'101001','011001','111001','000101',
'100101','010101','110101','001101',
'101101','011101','111101','000011',
'100011','010011','110011','001011',
'101011','011011','111011','000111',
'100111','010111','110111','001111');
По-всякому пробовал - на делфи норм, а МР не компилит...