Построить матрицу С (6*6) соответствующего вида

[hartman]

n 0 0 . . 0 0
n-1 n 0 . . 0 0
…………….
2 3 4 . . n 0
1 2 3 . . n-1 n

[Stilet]

С потолка:

for i:=0 to 5 do begin
  for j:=0 to i do write((n-j-i):5);
  while j<6 do begin write(0:5);inc(j);end;
  writeln;
 end;
end;