Test7.obn

   1 MODULE Test7;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   i : INTEGER;
   7
   8 BEGIN
   9   Out.Open;
  10   i := 48;
  11   FOR i := 32 TO i DO
  12     Out.Int(i, 0); Out.Char(' ');
  13   END;
  14   Out.Ln;
  15 END Test7.
  16
  17 Проверка корректности FOR.
  18 Сначала должна вычисляться выражение TO и только потом присвоение индекса.
  19 Результат должен быть: 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48