Kali Ini merupakan salah satu contoh program yang menampilkan segitiga
dengan tinggi 15 dan dengan warna-warni yang dipilih secara acak yang selalu
berubah mulai dari titik tengah sampai keluar.
program segitigawarna;
uses crt;
procedure
proces;
var x, y, i,
j, n, direction : byte;
begin