For循环编Pascal“*”字阵

var
i:longint;
begin
for i:=1 to 4 do
write(' ');
for i:=1 to 1 do
writeln('*');
for i:=1 to 3 do
write(' ');
for i:=1 to 3 do
write('*');
writeln;
for i:=1 to 1 do
write(' ');
for i:=1 to 7 do
write('*');
writeln;
for i:=1 to 9 do
write('*');
writeln;
end.

const ch='*';
var i,j:integer;
begin
j:=1;
for i:=1 to 3 do begin
write('':40-i*2+1);
case i of
1:writeln('*');
2:begin
for j:=1 to 3 do write('*');
writeln
end;
3:begin
for j:=1 to 7 di write('*');
writeln;
end;
4:begin
for j:=1 to 9 do write('*');
writeln;
end;
end;
end;
end.