pascal图案题

画出这个 图形 1
1 1
2 2 2
2 2 2 2
3 3 3 3 3
3 3 3 3 3 3
4 4 4 4 4
4 4 4 4
5 5 5
5 5
6
谢谢了 ...回答的快..有追加

program xx1;

var

 i,j,x:integer;

begin

 for i:=1 to 6 do

  begin

  if i mod 2<>0 then x:=x+1;

  write(' ':20-i);

  for j:=1 to i do

   write(x:2);

  writeln;

  end;

  for i:=5 downto 1 do

  begin

   if i mod 2<>0 then x:=x+1;

   write(' ':20-i);

   for j:=1 to i do

    write(x:2);

   writeln;

  end;

end.

试验通过：