Có nhập vào độ dài:
uses crt;
var x,i,j:longint;
begin
clrscr;
write('Nhap do canh mot canh goc vuong: ');readln(x);
for i:=1 to x do
begin
for j:=1 to i do write('*');
writeln;
end;
readln
end.
Không nhập vào độ dài:
uses crt;
var i,j:longint;
begin
clrscr;
for i:=1 to 5 do
begin
for j:=1 to i do write('*');
writeln;
end;
readln
end.