Построить матрицу по образцу

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of byte;
    n,i,j:byte;
begin
n:=strtoint(Edit1.Text);
setlength(a,n,n);
stringgrid1.ColCount:=n;
stringgrid1.RowCount:=n;
for i:=0 to n-1 do
for j:=0 to n-1 do
if j>=n-i-1 then a[i,j]:=i+j-n+2
else a[i,j]:=0;
for i:=0 to n-1 do
for j:=0 to n-1 do
stringgrid1.Cells[i,j]:=inttostr(a[j,i]);
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..50,1..50] of byte;
    n,i,j:byte;
begin
write('n=');
readln(n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j>=n-i+1 then a[i,j]:=i+j-n
    else a[i,j]:=0;
    write(a[i,j]:4);
   end;
  writeln
 end;
readln
end.

var a:array of array of byte;
    n,i,j:byte;
begin
readln(n)
for i:=0 to n-1 do
for j:=0 to n-1 do
if j>=n-i-1 then a[i,j]:=i+j-n+2
else a[i,j]:=0;
for i:=0 to n-1 do
begin
 for j:=0 to n-1 do
  write(a[i],' ');
 writeln;
end;
end;

var n,i,j:byte;
begin
readln(n)
for i:=0 to n-1 do
begin
 for j:=0 to n-1 do
  if j>=n-i-1 then Write(i+j-n+2,' ')
                 else write(0,' ');
end;
end;

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..100] of integer;
    n,i,s:byte;
    x:integer;
begin
randomize;
write('n=');
readln(n);
for i:=1 to n do
 begin
  a[i]:=-90+random(500);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n do
 begin
  x:=abs(a[i]);
  s:=0;
  while x>0 do
   begin
    s:=s+x mod 10;
    x:=x div 10;
   end;
  a[i]:=s;
  write(a[i]:4)
 end;
readln
end.

function sum(n:integer):integer;
var x,s:integer;
begin
 x:=n;
 s:=0;
 while ( x<>0 ) do 
 begin
   s := s + (x mod 10);
   x := x div 10;
 end;
sum:=s;
end;
begin
//заполняешь массив
for i:=1 to n do
 a[i]:=sum(a[i]);
//выводишь полученный массив
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..100] of integer;
    n,i:byte;
    s:integer;
begin
randomize;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  a[i]:=random(20);
  write(a[i]:4);
  if i mod 3=0 then s:=s+a[i];
 end;
writeln;
writeln('Summa elementov s nomerom, kratnym 3=',s);
readln
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..100] of integer;
    n,i:byte;
    s:integer;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do
 begin
  Write('A[', i, '] = ');
  Readln(a[i]);
  if i mod 3=0 then s:=s+a[i];
 end;
writeln;
writeln('Summa elementov s nomerom, kratnym 3=',s);
readln;
end.