Viết chương trình bằng Pascal nhập 9 phần tử nguyên của mảng 2 chiều A gồm mai 3 hàng, 3 cột. Tinh và xuất ra màn hình tổng các phần tử nằm trên đường chéo chính của mảng

Uses crt;
Var A: array[1..10000,1..10000] of longint;
    s,i,j: longint;
Begin
        Clrscr;
        s:=0;
        For i:=1 to 3 do
                For j:=1 to 3 do
                Begin
                        Write(‘A[‘,i,’,’,j,’]= ‘);
                        Readln(A[i,j]);
                End;
        s:=s+A[1,1]+A[2,2]+A[3,3];
        Write(‘Tong: ‘,s);
        Readln
End.