X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=74af962c988ff9ce1be426d931c151374d47dcef;hp=1f53f28d644cc05917e97148e488e4bc102d551a;hb=391e0a12d2593ab45a8a0ab56daab8858f922f1d;hpb=4b76e30410f1f5d5ec89a48f68c0695339345e0b

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 1f53f28..74af962 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -327,18 +327,19 @@ PROCEDURE PolinomNaN(p: Polinom; n: CARDINAL;
                      VAR rez: Polinom);
 VAR
   i: CARDINAL;
+  pret : Polinom;
 BEGIN
   IF n = 0 THEN
     NEW(rez);
     rez^.k := 1.0;
     rez^.st := 0;
     rez^.veza := NIL;
-  ELSIF n = 1 THEN
-  	Kopiraj( p, rez );
   ELSE
-    rez := p;
+    Kopiraj( p, rez );
     FOR i := 2 TO n DO
-      Puta(rez, p, rez)
+      pret := rez;
+      Puta(pret, p, rez);
+      DisposePolinom(pret);
     END
   END;
 END PolinomNaN;