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.
