Program membuat ukuran segitiga. Walaupun kelihatannya simpel namun fungsi Repeat Until dan While Do pada implikasinya memerlukan keterampilan dan kemampuan berlogika yang cukup tinggi. Contohnya pada program membuat bintang seperti yang telah saya buat. Membuat bintang, maksudnya mengurutklan sejumlah bintang untuk untuk membuat suatu bentuk yang lebih kompleks, seperti segitiga dan lain lain. Ini contohnya :
GENIAFEST TECH
program segitiga_bintang_2;
uses wincrt;
var
i,j,n:integer;
begin
write('Masukkan ukuran segitiga = ');readln(n);
for j:=1 to n do
begin
for i:=1 to j do
write('*');
writeln;
end;
readln;
end.
