- Chương trình a :
uses crt;
var i, k, n : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
for i := 1 to n do
begin for k := 1 to i do write(' * ');
writeln; end;
readln
end.
- Chương trình b :
uses crt;
var i, k, n : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
for i := n downto 1 do
begin for k := 1 to i do write(' * ');
writeln; end;
readln
end.
