Якими командами можна сформувати масив з 6 компонентів фігура?​

1)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i+j>5) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

2)var a:array[1..4,1..4] of integer;
      i,j,s:integer;
begin
      for i:=1 to 4 do
         for j:=1 to 4 do 
               readln(a[i,j]);
         
           for i:=1 to 4 do begin 
                     writeln();
                   for j:=1 to 4 do begin 
                     write(a[i,j],' '); 
                    if (i>J) then s:=s+a[i,j];
                        end;
                 end;
writeln();
write(s);
end.

#include <iostream>

#include <cstdlib>

using namespace std;

int main()

{

 int number;

 int p = 0;

 cout << "Enter the integer: "; cin >> number;

   for (int i = number; i != 0; i /= 10){ // проверка на палиндром

    p = p * 10 + i % 10;

   }  

   if(number == p){

    cout << "The same digits left and right sides!" << endl;

   }else cout << "Not the same digits left and right sides!" << endl;

   int mas[3]; // объявления массива для 3 последних цифр

   for(int i = 0; i < 3; i++){ // запись в массив

    mas[i] = number%10;

    number /= 10;

   }

   for(int i = 0; i < 3; i++){ // вывод массива

    cout << mas[i] << endl;

   }

system("pause"); // остановка консоли

}