pascal语言中，for循环的问题

用for循环打印出 那位大哥来帮帮忙
1
222
33333
4444444
555555555
1前面有4个空格
222前面3个
33333前面有2个
4444444前面1个
555555555前面没有空格

---

program ji;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5-i do
write('源袜薯 ');
for j:=1 to 2*i-1 do
write(i);
writeln;
end;
end.
一定要打雹者好竖分号！！

---

var i,j:integer;
begin
for i:=1 to 5 do begin
for j:=5-i downto 1 do write(' ');{输出前导樱运型空脊猜格}
for j:=1 to i*2+1 do write(i);{输出悄神数字}
writeln;
end;
end.

---

program ji;
var
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5-i do
write('亩销汪迅仔 '斗嫌);
for j:=1 to 2*i-1 do
write(i);
writeln;
end;
end.

---

var i,j:1..5;
begin
for i:=1 to 5 do begin
for j:=1 to 5-i do write('桐兄 '); {输出空渣悄格局梁袭}
for j:=1 to 2*i-1 do write(i); {输出数字}
writeln;
end;
end.

---

var j,i,t:integer;
begin
for j:=1 to 5 do
begin
for i:=1 to 5-j do
write(' ');
for t:=1 to j*2-1 do
write(j);
writeln;
end;
writeln;
end.

---

program df;
var
i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
write(' ');
for j:=1 to 2*i-1 do
write(i);
writeln;
end;
end.

---