Menampilkan bilangan genap

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
proses akan berhenti ketika nilai akhir i=49
}

Baca juga Mencari akar dengan Bolzano

uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}

var
i : integer;

Begin

Baca juga Program Lokalisasi Akar

clrscr;
i := 0;
while ( i<50 )
do
begin
i := i+2;
write(’ ‘,i);
end;
readln;
end.