MODULE polinom2;
FROM PolinomL IMPORT Polinom, Stampaj, Anuliraj,
              DisposePolinom, UbaciMonom, Unos, Saberi;
FROM InOut IMPORT WriteString, WriteLn;
FROM Storage IMPORT ALLOCATE, DEALLOCATE;

VAR
  p,q,rez,pom : Polinom;

BEGIN
  Anuliraj(p);
	NEW(p);
	p^.st := 2;
	p^.k := 1.0;
	p^.veza := NIL;
  Stampaj(p,0);
  WriteLn;

  Anuliraj(q); (* ovde isto sto i q:=NIL; *)
  (* formiramo monom x^5 *)
  NEW(pom);
  pom^.st:=5;
  pom^.k:=1.0;
  (* dodajemo ga u polinom *)
  UbaciMonom(pom,q);
  DISPOSE(pom);
  (* -3 x^4 *)
  NEW(pom);
  pom^.st := 4;
  pom^.k := -3.0;
  UbaciMonom(pom,q);
  DISPOSE(pom);
  (* 4 x *)
  NEW(pom);
  pom^.st := 1;
  pom^.k := 4.0;
  UbaciMonom(pom,q);
  DISPOSE(pom);
  (* 7 (x^0) *)
  NEW(pom);
  pom^.st := 0;
  pom^.k := 7.0;
  UbaciMonom(pom,q);
  DISPOSE(pom);
  (* saberemo polinome *)
  Stampaj(q,0);
  WriteLn;
  
  Saberi(q, q, q);
  (* odstampamo rezultat *)
  Stampaj(q,4);
  WriteLn;
  DisposePolinom(p);
  DisposePolinom(q);
  DisposePolinom(rez);
END polinom2.