Cara menggunakan while do pada pascal

Pertama tama kita buka aplikasi pascal pada desktop

Dan ketikan codingan while do seperti gambar dibawah ini 

Program while_do; yaitu untuk membuat judul pada program yang akan kita buat

Uses crt; yaitu untuk menampilkan library agar clrscr bisa dimasukkan ke dalam layar

Var yaitu untuk menamakan nama variabel

I : integer; adalah nilai I yang bertipe data integer

Begin yaitu untuk memulai program yang akan kita buat

Clrscr; yaitu untuk menghapus program sebelumnya

I := 3; yaitu nilai I yang berisi 3

Write(‘berikut deret untuk kelipatan ganjil: ’); yaitu untuk menampilkan nama “berikut deret untuk kelipatan ganjil” di layar

While i<10 do yaitu selama 1 kurang dari 10 lakukan I + 2

Write(I, ‘ ‘); yaitu hanya untuk memberi spasi saja

I := I + 2; yaitu nilai I sama dengan I yang berisi nilai 3 ditambah 2

End; yaitu untuk mengakhiri sub program

Readln; yaitu untuk menampilkan output pada layar

End. Yaitu untuk mengakhiri program yang sudah kita buat