Berikut ini adalah contoh pengulangan while .. do dalam bahasa pascal.
Program Pengulangan;
{program pengulangan menggunakan (while - do)
tampilkan Bilangan GENAP
kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50 i="49">
uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}
var
i : integer;
Begin
clrscr;
i := 0;
while ( i<50>
