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

Вот.

var
  s:string[9];
  i:byte;
begin
  s:='100000000';
  writeln(s);
  for i:= 2 to length(s) do begin
    s[i-1]:='0';
    s[i]:=char(i+48); // #48 = '0'
    writeln(s);
  end;
end.

for i := 0 to 80 do begin
    if i mod 9 = 0 then writeln;
    if (i mod 10 = 0) then
      write((i div 10 + 1):2)
    else write(0:2);
  end;

for i := 0 to 80 do begin
    if i mod 9 = 0 then writeln;
    if (i mod 10 = 0) then
      write((i div 10 + 1):2)
    else write(0:2);
  end;

Крутой код ...)

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

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.

Спасибо всем большое.