Это старая версия документа!

Циклы WHILE, REPEAT, FOR

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