Использование цикла for в цикле for

var
  i,j: byte;
  a: array[1..7,1..7] of integer;
begin
  for i:=1 to 7 do
  begin
    for j:=1 to 7 do
    begin
      if i=j then a[i,j]:=i
        else a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.

var
  i,j: byte;  // объявляем переменные типа байт (байт - натуральное число от 0 до 255)
begin
  for i:=1 to 7 do  // проходим по строкам от 1 до 7
  begin
    for j:=1 to 7 do  // проходим по столбцам от 1 до 7
      if i=j then write(i,' ') // если номер строки и столбца совпадают выводим номер строки и пробел
        else write('0 '); // если нет - 0 и пробел
    writeln; // переходим на новую строку
  end;
end.

var
  i,j: byte;  // объявляем переменные типа байт (байт - натуральное число от 0 до 255)
begin
  for i:=1 to 7 do  // проходим по строкам от 1 до 7
  begin
    for j:=1 to 7 do  // проходим по столбцам от 1 до 7
      if (i=j)or(i+j=8) then write(i,' ') // если номер строки и столбца совпадают выводим номер строки и пробел
        else write('0 '); // если нет - 0 и пробел
    writeln; // переходим на новую строку
  end;
end.

var
  i,j,a: integer;  // объявляем переменные
begin
writeln('Введите кол-во строк и стобцов');
read(a);
if (a mod 2)=0 then
 writeln('Число a должно быть нечетным!')
  else
  begin
   for i:=1 to a do  // проходим по строкам
    begin
     for j:=1 to a do  // проходим по столбцам
      if (i=j)or(i+j=a+1) then write(i,' ') // если номер строки и столбца совпадают выводим номер строки и пробел
        else write('0 '); // если нет - 0 и пробел
    writeln; // переходим на новую строку
 
    end;
  end;
end.

i:3

'0':3

var
  i,j,a: integer;  // îáúÿâëÿåì ïåðåìåííûå
begin
  writeln('Ââåäèòå êîë-âî ñòðîê è ñòîáöîâ: ');
  read(a);
  if (a mod 2)=0 then
    writeln('×èñëî a äîëæíî áûòü íå÷åòíûì!')
    else
    begin
      for i:=1 to a do  // ïðîõîäèì ïî ñòðîêàì
      begin
        for j:=1 to a do  // ïðîõîäèì ïî ñòîëáöàì
        if (i=j)or(i+j=a+1) then write(i:3) // åñëè íîìåð ñòðîêè è ñòîëáöà ñîâïàäàþò âûâîäèì íîìåð ñòðîêè è ïðîáåë
          else write('0':3); // åñëè íåò - 0 è ïðîáåë
        writeln; // ïåðåõîäèì íà íîâóþ ñòðîêó
      end;
    end;
end.