Что из перечисленного стало причиной династического кри­зиса 1825 г.? 1) отсутствие наследников мужского пола

I - столбцы 
j - строки
 
 Var
   A: array[1..3,1..3] of integer;
   i,j: integer;
 begin
 for i:=1 to 3 do
  for j:=1 to 3 do 
   <действия с элементами матрицы>
 end.