用 PASCAL 打印图形

两个版本，第一个是按你题中给的形式，第二个是一个菱形，自己选吧
第一个：
var c,d,n:integer;
begin
readln(n);
for d:=0 to n do begin
for c:=n downto n-d do write(c);
for c:=n-d+1 to n do write(c);
writeln;
end;
for d:=n-1 downto 0 do begin
for c:=n downto n-d do write(c);
for c:=n-d+1 to n do write(c);
writeln;
end;
end.
第二个：
var c,d,n:integer;
begin
readln(n);
for d:=0 to n do begin
for c:=1 to n-d do write(' ');
for c:=n downto n-d do write(c);
for c:=n-d+1 to n do write(c);
writeln;
end;
for d:=n-1 downto 0 do begin
for c:=n-d downto 1 do write(' ');
for c:=n downto n-d do write(c);
for c:=n-d+1 to n do write(c);
writeln;
end;
end.