Perulangan While

Berikut adalah Contoh Program Pascal Mengguakan While
untuk menampilkan angka 15 sampai 1
____________________________
uses crt;
var
i:integer;
begin
clrscr;
i:=16; {Memberikan Nilai Awal}
While i>1 do {Lama i lbih besar dari1 lakukan perintah dibawah.a}
begin {Memulai Perulangan}
i:=i-1;{kurangi 1 nilai agar dapat mencapai nilai 1 sa'at di ulang}
writeln(i); {Menampilkan Nilai [i] Jadi kluaran pertama adalah 15 karena i=i-1 atau 16-1}
end; {akhiri perulangan}
readln;
end.