Написать программку, выводящую на экран информацию по данному образчику (на языке

program posledovatelnosti_cifr;

var i,j,k:integer;

begin

    for i:=1 to 9 do

    begin

         write(i);

         for j:=7 downto i-1 do write('0');

         writeln;

         for k:=1 to i do if ilt;=8 then write(k) else write();

    end;

end.

Быстрее всего не самое наилучшее решение, но конкретно так вышло получить желанный вывод.