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

100000000

120000000

123000000

123400000

123450000

123456000

123456700

123456780

123456789

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.

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