Verified answer

Ответ:

var

 a: array [1..10,1..10] of Integer;

 i, j: Integer;

begin

 for i := 1 to 10 do

   for j := 1 to 10 do begin

     if j >= i then

       a [i, j] := j - i + 1

     else

       a [i, j] := 0;

   end;

 for i := 1 to 10 do begin

   WriteLn;

   for j := 1 to 10 do

     Write (a [i, j] :3);

 end;

 ReadLn;

end.