Penerapan Perulangan REPEAT UNTIL Pada Free Pascal

Pada dasarnya, perulangan REPEAT UNTIL mirip seperti perulangan WHILE DO, dimana kita akan melakukan pengecekan dalam setiap iterasi apakah nilai variabel counter masih dipenuhi atau tidak. Bedanya, pada REPEAT UNTIL, pemeriksaan kondisi ini dilakukan di akhir perulangan, bukan di awal seperti WHILE DO.

Format penulisannya adalah:
repeat
    statement;
until (condition);

Contoh 1:

Outputnya:

Contoh 2:


Outputnya: