X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=Test7.obn;h=7579867ca572312f8f4945516f7d4dbed0d1d0d4;hp=739ec972c1c9ea3a5234bcb8b18c0aa3385df03d;hb=3d4021b9a2dd52aaf4b97859a8a58b74903ebac9;hpb=75d0fd92a5342358f37ed9369ccce9355273e51a

diff --git a/Test7.obn b/Test7.obn
index 739ec97..7579867 100644
--- a/Test7.obn
+++ b/Test7.obn
@@ -4,14 +4,20 @@ IMPORT Out;
 
 VAR
   i : INTEGER;
+  ok : BOOLEAN;
 
 BEGIN
   Out.Open;
   i := 48;
   FOR i := 32 TO i DO
     Out.Int(i, 0); Out.Char(' ');
+    ok := TRUE;
   END;
   Out.Ln;
+
+  IF ok = FALSE THEN
+    HALT(1);
+  END;
 END Test7.
 
 Проверка корректности FOR.