06. doterivanje tipova i par sitnica za XDS

diff --git a/05. NizDin/kod/NIZDIN.MOD b/05. NizDin/kod/NIZDIN.MOD
index 6156e77..0e63683 100644 (file)
--- a/05. NizDin/kod/NIZDIN.MOD
+++ b/05. NizDin/kod/NIZDIN.MOD
@@ -14,7 +14,7 @@ MODULE NizDin;
 \r
   PROCEDURE Unos;\r
     VAR\r
-      i: CARDINAL;\r
+      i: INTEGER;\r
   BEGIN\r
     WrStr('Unesite N: ');\r
     n:= RdInt();\r
@@ -28,7 +28,7 @@ MODULE NizDin;
   \r
   PROCEDURE Resi;\r
     VAR\r
-      i, j, Pom: CARDINAL;\r
+      i: INTEGER;\r
   BEGIN\r
     b[0]:= 0;\r
     IF a[1] > 0 THEN\r
@@ -45,7 +45,7 @@ MODULE NizDin;
     END;\r
   END Resi;\r
 \r
-  PROCEDURE Ispis(n: CARDINAL);\r
+  PROCEDURE Ispis(n: INTEGER);\r
   BEGIN\r
     IF n > 0 THEN\r
       IF b[n] = b[n - 1] THEN\r