program ArrayProgram;
Var
   i : Integer;
   j : Integer;
   a1 : array [1 .. 10] of Integer;
   cube : array [1 .. 5, 1 .. 5] of Integer;
   cube2 : array [1 .. 5] of array [1 .. 5] of Integer;
   count : Integer;
begin
   count := 0;

   for i := 1 to 5 do
   begin
      for j := 1 to 5 do
      begin
         cube[i][j] := count;
         cube2[i][j] := count;
         count := count + 1;
      end;
   end;

   for i := 1 to 5 do
   begin
      for j := 1 to 5 do
      begin
         writeln('cube[',i,'][',j,'] = ',cube[i][j]);
      end;
   end;

   for i := 1 to 5 do
   begin
      for j := 1 to 5 do
      begin
         writeln('cube2[',i,'][',j,'] = ',cube2[i][j]);
      end;
   end;


   for i := 1 to 10 do
   begin
      a1[i] := i;
   end;

   for i := 1 to 10 do
   begin
      writeln('a1[', i, '] = ', a1[i]);
   end;
end.