Contoh Program Paskal Pengaplikasian struktur While Do

var b,c : integer;
begin
b:=3; for c:=1 to 3 do
begin
while b<5 do
begin
write(b); inc(b);end;end;
readln; end.


Hasil:

34


Sumber : Pra UTS ATA 2011//2012 Algoritma & Pemprograman 2