Perulangan While - Do

Perulangan While - Do
              Penyeleksian  kondisi  digunakan  untuk  agar  program  dapat
             menyeleksi kondisi, sehingga program dapat menentukan tindakan apa
             yang  harus  dikerjakan, tergantung dari  kondisi  yang  diseleksi
             tersebut.  Perulangan While – Do tidak dilakukan jika kondisi  tidak
             terpenuhi.
              Contoh :
                 Uses Crt;
                 Var i : Integer;
                 Begin
                      i := 0;
                      While  < 5 do
                        Begin
                          Write (i:3);
                           Inc (i);    { sama dengan i:=i+1 }
                      End;
                 End.

         Hasilnya :
                          0  1  2  3  4