Question

ПОМОГИТЕ СРОЧНО НУЖНО!

Напечатать числа в виде следующей таблицы:
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

Answer 1

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.