Вот так:
Код:
var
i, j, v : integer;
begin
for i = 1 to n do // rows
for j = 1 to n do // cols
begin
v := IfThen(i + j > n,n,i+j-1);
StringGrid1.Calls[j,i] := IntToStr(v);
end;
end;
пример вывода (сделан на java, но арифметика та же (n=5):
Код:
1 2 3 4 5
2 3 4 5 5
3 4 5 5 5
4 5 5 5 5
5 5 5 5 5