Contoh Porgram While untuk mengoperasikan output dari 0 sampai 5 :
uses crt;
var i : integer;
begin
clrscr;
i := 0 ;
while i < 6 do
begin
writeln(i);
i := i +1;
end;
end.
outputnya akan tampil seperti berikut...
Blog Nasir, Tentang IT, Desain, dan Kehidupan
Copyright @ 2013 Muhammad Nasir.