打印以下图形1

#######
 #####
  ###
   #

program expicture1_1;
const lines = 4;
var
 i, j : integer;
begin
 for i := 1 to lines do
 begin
  write(' ' : i);
  for j := 1 to 2*(lines-i)+1 do
   write('#');
  writeln;
 end;
 readln;
end.


program expicture1_1;
const MaxChar = 7;
var
     i, j : integer;
begin
        i := MaxChar;
        while i >= 1 do
        begin
             for j := 1 to i do
                 write('#');
             writeln;
             i := i-2;
             write(' ' : (MaxChar-i) div 2);
        end;
        readln;
end.