Это старая версия документа!
b := 0 WHILE b <= 10 DO Send(b); INC(b) END;
b := 0 REPEAT Send(b); INC(b) UNTIL b = 10;
FOR b := 0 TO 10 DO Send(b) END