From a35f3e51789ace81cea01e548963568da918635f Mon Sep 17 00:00:00 2001
From: Doni Pracner <quinnuendo@gmail.com>
Date: Wed, 6 Nov 2013 13:25:08 +0100
Subject: [PATCH] 06. doterivanje tipova i par sitnica za XDS

---
 05. NizDin/kod/NIZDIN.MOD | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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