Задача, Не знаю как коротко написать Опции

[Shale]

Как написать программу, которая печатает столбик строк такого типа:
100000000
020000000
003000000
000400000
000050000
000006000
000000700
000000080
000000009

[Айра]

Угу))) А я тоже хочу
Вот примитивный вариант:

var i,j:integer;
begin
  for i:=1 to 9 do
    begin
      for j:=1 to 9 do
        if i=j then write('',i)
        else write('0');
      writeln;
    end;
end.