program array_test (output);

type fred = array [1..3,1..3,false..true] of integer;

var i,j : integer;
    k : boolean;
    a : fred;


procedure jim;

var i,j : integer;
    b : fred;
    k : boolean;

begin
 writeln;

 for i := 1 to 3 do 
  for j := 1 to 3 do
  for k := false to true do
  begin
   a[i,j,k] := i*4+j*2+ord(k);
   b[i,j,k] := a[i,j,k];
  end
end;


begin
{ jim; }

 writeln;
 for i:= 1 to 3 do
  for j := 1 to 3 do
   for k := false to true do writeln (a[i,j,k])
end.