Vẽ hình trong Pascal

[kaka_math]

Các bạn giúp mình viết chương trình vẽ hình tam giác bằng dấu * trong Pascal với (tam giác cân và tam giác vuông). Chỉ sử dụng vòng lặp for hay các lệnh cơ bản thôi nhé.
[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] 

[vnzoomvodoi]

Var
a:array[1..100] of string;
i,j,n:integer;
Begin
Writeln('Muon nhap bao nhieu dong');
Readln(n);
For i:=1 to n do
a[i]:='*'
For i:=1 to n do
Begin
For j:=1 to i do
Write(a[j]);
Writeln;
End;
readln
End.
[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] 

[perfectstrong]

Mình viết đoạn chương trình chính thôi
hình tam giác vuông:

begin
clrscr;
write('Moi nhap n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to i do
write('*');
writeln;
end;
readln;
end.

hình tam giác cân

begin
clrscr;
write('Moi nhap n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to i do write('*');
writeln;
end;
readln;
end.

[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] 

[vnzoomvodoi]

for j:=1 to i do write('*');

thành

for j:=1 to i do write('* ');

thì sẽ thành tam giác cân
[RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT]