Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
f:array [1..8,1..8] of byte= {1'st type 2'nd num}
((98,4, 192,6, 32,70, 96,3),
(100,2,96,12,64,38,48,6),
(68,6,32,14,96,34,112,4),
(34,6,224,2,96,68,64,7),
(98,2,224,4,64,70,32,7),
(100,4,64,14,98,2,224,4),
(96,6,96,6,96,6,96,6),
(34,34,240,0,68,68,0,15));
..x.
.xx.
..x.
....
.x..
.xx.
.x..
....
Уровни для Сокобана