Программа эквивалентная программе на Basic - PascalABC.NET

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

                    Листинг программы
                
 
                        
                          
                    
REM вычисление "следа" 2-мерного массива
DIM A%(2,2)
FOR I=0 TO 2: FOR J=0 TO 2: READ A%(I,J): NEXT J: NEXT I
TR=0
FOR I=0 TO 2
TR=TR+A%[I,I]
NEXT I: PRINT TR
DATA 1,2,3,4,5,6,7,8,9

На какой оператор можно заменить DATA?

Решение задачи: «Программа эквивалентная программе на Basic»

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

var
  a:array [0..2,0..2] of integer:=((1,2,3),(4,5,6),(7,8,9));
  i,j:integer;
  tr:real;
begin
  tr:=0;
  for i:=0 to 2 do tr:=tr+a[i,i];
  writeln(tr);
end.

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

Объявляется двумерный массив a размером 3x3, инициализируется значениями 1,2,3; 4,5,6; 7,8,9 соответственно.
В переменной i инициализируется значение 0.
В переменной j инициализируется значение 0.
В переменной tr инициализируется значение 0.
Цикл for запускается три раза (0,1,2) с переменной i, каждый раз значение tr увеличивается на сумму элементов массива a по диагонали (1+2+3, 4+5+6, 7+8+9).
Значение переменной tr выводится на экран.