OJ Board

[/pascal][/code]
program p532;
{$APPTYPE CONSOLE}
uses SysUtils;

const f:array[1..6,1..3]of longint=((0,1,0),(0,-1,0),(1,0,0),(-1,0,0),(0,0,1),(0,0,-1));

var st:array[1..50,1..50,1..50]of char;
b:array[1..50,1..50,1..50]of 0..1;
m:array[1..50,1..50,1..50]of longint;
l,r,c,i,j,k,si,sj,sk:longint ...