====== Циклы WHILE, REPEAT, FOR ======

<code>
b := 0
WHILE b <= 10 DO
   Send(b);
   INC(b)
END;
</code>

<code>
b := 0
REPEAT
   Send(b);
   INC(b)
UNTIL b > 10;
</code>

<code>
FOR b := 0 TO 10 DO
   Send(b)
END 
</code>