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.