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

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 i<=8 then write(k) else write();

    end;

end.

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