Algoritma Program Segitiga Bintang dalam Bahasa Pascal

1. Start
2. masukan angka sembarang kecuali 0 dan -
3. angka masukan dibagi 2 dan diambil sisa baginya
4. sisa baginya = 0 berarti bilangan tersebut genap
5. jika ya, dari 1 sampai angka masukan dibagi 2 itu untuk menentukan jumlah baris ke bawah yang akan diisi
6. untuk mengisi setiap baris ke bawah, dari 1 sampai angka masukan dibagi 2 dikurangi urutan baris ke bawah yang mau diisi ke samping ,ditulis dengan kosong untuk memberikan jarak bintang supaya berbentuk segitiga
7. mengisi setiap baris ke bawah disamping yang kosong, dari 1 sampai urutan baris ke bawah  yang mau diisi dikali 2, ditulis dengan (*) supaya jumlah bintang dari baris yang terbawah sama dengan angka masukan
8. sisa baginya = 1 berarti bilangan tersebut ganjil
9. jika ya, dari 1 sampai angka masukan dibagi 2 ditambah 1 itu untuk menentukan jumlah baris ke bawah yang akan diisi
10. untuk mengisi setiap baris ke bawah, dari 1 sampai angka masukan dibagi 2 ditambah 1 dikurangi  urutan baris ke bawah yang mau diisi ke samping,  ditulis dengan kosong untuk memberikan jarak bintang supaya berbentuk segitiga
11. mengisi setiap baris ke bawah disamping yang kosong, dari 1 sampai urutan baris ke bawah yang mau diisi dikali 2 dikurangi 1 ditulis dengan (*) supaya jumlah bintang dari baris yang terbawah sama dengan angka masukan
12. mau coba lagi ?
13. jika ya, akan kembali ke masukan angka sembarang
14. jika tidak, program berakhir