contoh program pascal - bentuk segitiga (looping)

membuat bentuk segitiga dengan jumlah data yang kita inginkan. contohnya adalah sebagai berikut:

contoh 1 :

program segitiga_siku;
uses crt;
var
a,b,n: integer;
begin
write('masukkan jumlah n: '); readln(n);
for a:=1 to n do
begin
for b:=1 to a do
write('*');
writeln;
end;
readln;
end.

Contoh 2 :

program segitiga_sikubawah;
uses crt;
var a,b,n:integer;
begin
write('masukkan jumlah n: '); readln(n);
for a:=1 downto n do
begin
for b:=1 to a do
write('*');
writeln;
end;
end.

Contoh 3 :
program segitiga_samakaki;
uses crt;
var a,b,c,n: integer;
begin
write('masukkan jumlah n : '); readln(n);
for a:=1 to n do
begin
for b:=a to n do
begin
write(' ');
end;
for c:=1 to a do
begin
write('*');
end;
writeln;
end;
readln;
end.