program cetak_angka;
uses crt;
var i,j,k : integer;
    a,b : char;
begin
  clrscr;

  a := ' ';
  b := '1';

    for i := 1 to 20 do
      begin

        for j := 1 to (21-i) do
          begin
            write(a);
          end;

        for k := 1 to i do
          begin
            write(b);
          end;

        writeln;
       end;

    readln;
end.