Нужно! напечатать числа в виде следующей таблицы: 8) 6 6 6 6 6 7 7 7 7 8 8 8 9 9 10 13)0 1 2 3 4 0 1 2 3 0 1 2 0 1 0

begin
  var i, j: byte;
  for i := 6 to 10 do
  begin
    for j := 0 to 10 - i do
      write(i, ' ');
    writeln();
  end;
end.

begin
  var i, j: byte;
  for i := 0 to 4 do
  begin
     for j := 0 to 4 - i do
      write(i, ' ');
    writeln();
  end;
end.