program untuk menghitung mundur 100 s/d 0 menggunakan while do

program while_do;
uses crt;
var i=integer;
begin
clrscr;
i := 100;
while i >= 0 do
begin
writeln ('i adalah: ', i);
i := i-1;
end;
readln;
end.