Recherche:

encore une solution :)



var
skip : Boolean;
i :Integer;
begin
skip := True;
for i := 0 to 100 do

voici ce qu'il voulait illustrer


// ceci ne produit rien comme son "for"
i := 10;
while i < 8 do
begin
WriteLn('Hello');
Inc(i);
end;