Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу - Free Pascal

Формулировка задачи:

А.Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу. Каждый элемент равен сумме своих индексов. Б.Выведите созданный массив на экран. Как сделать?......

Решение задачи: «Создайте программу,которая заполняет квадратный массив 8X8 числами по следующему правилу»

Листинг программы

program zadacha;
var a:array[1..8,1..8] of integer;
        i,j:integer;     
begin
 for i:=1 to 8 do
  for j:=1 to 8 do
   a[i,j]:=i+j;
 
 for i:=1 to 8 do
  begin
   for j:=1 to 8 do
     write(a[i,j]:2);
     writeln;
 end;
readln;
end.

Объяснение кода листинга программы

Объявлены переменные:
- a: массив 8x8 целых чисел
- i, j: целочисленные переменные для цикла
Заполнение массива a происходит с помощью двух вложенных циклов for.
Внутренний цикл перебирает строки массива a, а внешний цикл перебирает столбцы массива a.
Каждый элемент массива a[i,j] заполняется суммой i и j.
С помощью цикла for выводятся все элементы массива a на экран.
Каждое число выводится в двоичной системе счисления.
После вывода всех чисел программа ожидает ввода пользователя с помощью функции readln.