For Bersarang (Nested For) Pada Turbo Pascal

Pada bahasa pemograman pascal, fungsi pengulangan For-to-do dapat dikembangan menjadi For bersarang (nested For). Ini bisa terjadi pada beberapa masalah tertentu. Maksudnya For bersarang adalah For berada di dalam For yang lainnya.
Contoh :
1.    untuk menghasilkan output seperti berikut :

*****
*****
*****
*****
*****
Format bahasa Program Pascalnya :

2.    Menghasilkan Output Seperti berikut :

*
**
***
****
*****

 

3.  Menghasilkan output seperti berikut :

*****

****

***

**

*

4. Menghasilkan output seperti berikut :

*****

#####

*****

#####

*****